频道分类

Delphi 显示提示信息XXX 是/否

作者:admin 来源: 日期:2020/1/30 13:20:45 人气: 标签:

 
//显示提示信息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;