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比较两个位图是否相同

Delphi tms web core tedit编辑输入框属性展示

Delphi获取文件编码

Delphi xe6 string转memorystream

Delphi开机启动项管理源码

Delphi 对image字段存取图片、文件

Delphi xe程序的主题（theme）设置

Delphi 程序员的反攻－－－－打击p2p

Delphi旋转位图

Delphi image1 图像复制到剪切板

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

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