Delphi 显示提示信息XXX 是/否

本文整理自网络，侵删。

 
//显示提示信息XXX 是/否
function TBN.ShowMsgYesNo(sMsg:String;sTitle:string='提示'):Boolean;
begin
  Result:=application.MessageBox(pchar(sMsg),pchar(sTitle),MB_ICONWARNING+MB_YESNO)=ID_YES;
end;

//显示提示信息
procedure TBN.ShowMsg(sMsg:String;sTitle:string='提示');
begin
  application.MessageBox(pchar(sMsg),pchar(sTitle),MB_ICONINFORMATION);
end;

//显示报错信息
procedure TBN.ShowMsgError(sMsg:String;sTitle:string='提示');
begin
  application.MessageBox(pchar(sMsg),pchar(sTitle),MB_ICONERROR);
end;
 

相关阅读 >>

Delphi xe10 麦克风、摄像头操作

Delphi memo1 数字列设定取值范围

Delphi wm_copydata 用法

Delphi关闭程序close,application.terminate与halt区别

iniocp（小旋风服务套件）

Delphi xe7 的 android bitmap转jpg图的参数问题

Delphi @ 与 ^ 运算符

Delphi获取本机mac地址方法

winapi 字符及字符串函数(15): charnext、charprev

Delphi strlenwide 汇编统计字符串长度

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 显示提示信息XXX 是/否