本文整理自网络,侵删。
uses FoxmailMsgFrm;//调用procedure TForm1.Button1Click(Sender: TObject);beginShowInfo('信息');end;
procedure TForm1.Button2Click(Sender: TObject);beginShowWarning('信息');end;
procedure TForm1.Button3Click(Sender: TObject);beginShowError('信息');end;
procedure TForm1.Button4Click(Sender: TObject);beginShowSysMsg('信息');end;
FoxmailMsgFrm.pas 单元文件下载链接: https://pan.baidu.com/s/10ZGibehBQHamjiNr9aqtqQ 提取码: shrt
相关阅读 >>
Delphi createmutex建立互斥对象,并且给互斥对象起一个唯一的名字
Delphi application.messagebox 详解
Delphi 如何解决在dll的入口函数中创建或结束线程时卡死
解决 Delphi 程序在不同操作系统中 shellexecute 调用 chrome.exe 偶尔无效的问题
更多相关阅读请进入《Delphi》频道 >>