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;

推荐分享