delphi 右下角滑动消息窗口


本文整理自网络,侵删。

 
uses FoxmailMsgFrm;
//调用
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowInfo('信息');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowWarning('信息');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ShowError('信息');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
ShowSysMsg('信息');
end;





FoxmailMsgFrm.pas 单元文件下载
链接: https://pan.baidu.com/s/10ZGibehBQHamjiNr9aqtqQ 提取码: shrt

相关阅读 >>

Delphi date 返回当前的日期

Delphi createmutex建立互斥对象,并且给互斥对象起一个唯一的名字

Delphi判断文件夹(目录)是否存在,不存在就创建一个

Delphi application.messagebox 详解

Delphi 如何解决在dll的入口函数中创建或结束线程时卡死

Delphi 如何将颜色值转换为灰度颜色值?

Delphi中in的使用

Delphi vclzip实现分卷压缩

解决 Delphi 程序在不同操作系统中 shellexecute 调用 chrome.exe 偶尔无效的问题

Delphi10.3 创建一条json数据

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...