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 xe6 �c使用android的zlib

Delphi多级指针

Delphi unigui http url直接下载文件

Delphi idhashmessagedigest 获取文件md5

Delphi检查字符串是否为纯数字

Delphi xe8中的正则表达式提取日语（平假名，片假名，汉字）

Delphi与正则表达式

Delphi toolbar按钮添加图标

Delphi fastreport快速入门

Delphi 获取本地计算机上的com口列表

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

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