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如何获取系统服务(即service服务程序)列表

Delphi捕获twebbrowser的close事件

Delphi stringtobase64、base64tostring两个函数

Delphi getmimetypefromfile 获取文件mime类型

Delphi 动画窗体

Delphi 下 vclzip控件的简单使用

Delphi idhttp post 普通提交乱码处理

Delphi shutdown() 关机

Delphi 为idhttp伪造session

Delphi 网址链接提取域名

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

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