delphi实现托盘
2015-11-18 16:26
609 查看
如果自己从头做的话,需要定义一个TNotifyIconData类型变量,这个变量定义在 ShellAPI 单元中。
需要设置这个变量的这几个值。
_NOTIFYICONDATAA = record
cbSize: DWORD;
Wnd: HWND;
uID: UINT;
uFlags: UINT;
uCallbackMessage: UINT;
hIcon: HICON;
szTip: array [0..63] of AnsiChar;
end;
例如:
const WM_NID = WM_USER + 100;
procedure WMNID(var msg: TMessage); message WM_NID;
with NOtifyIcon do
begin
cbsize := SIzeof(TNOtifyIconData); // 记录大小
wnd := self; //窗体句柄
uID := 1; // 图标iD
UFLagS := NIF_MESSAGE or NIF_ICON or NIF_ TIP;
ucallbackMessage:= WM_NID; // 自定义消息
Hicon := application.icon.handle;
szTIP := 'pxb';
{$EXTERNALSYM NIF_MESSAGE}
NIF_MESSAGE = $00000001;
{$EXTERNALSYM NIF_ICON}
NIF_ICON = $00000002;
{$EXTERNALSYM NIF_TIP}
NIF_TIP = $00000004;
end;
shell_notifyICON(sss.add,@notifyicno);
case msg.lparams of
WM_RButtonClick:
begin
end;
WM_LButtonDBclidk:
begin
end;
end;
可以使用第三方控件,可以设置 showballMessage();显示气泡提示。通过设置,可以很快的做出一个托盘应用。 TZTRayICON;
需要设置这个变量的这几个值。
_NOTIFYICONDATAA = record
cbSize: DWORD;
Wnd: HWND;
uID: UINT;
uFlags: UINT;
uCallbackMessage: UINT;
hIcon: HICON;
szTip: array [0..63] of AnsiChar;
end;
例如:
const WM_NID = WM_USER + 100;
procedure WMNID(var msg: TMessage); message WM_NID;
with NOtifyIcon do
begin
cbsize := SIzeof(TNOtifyIconData); // 记录大小
wnd := self; //窗体句柄
uID := 1; // 图标iD
UFLagS := NIF_MESSAGE or NIF_ICON or NIF_ TIP;
ucallbackMessage:= WM_NID; // 自定义消息
Hicon := application.icon.handle;
szTIP := 'pxb';
{$EXTERNALSYM NIF_MESSAGE}
NIF_MESSAGE = $00000001;
{$EXTERNALSYM NIF_ICON}
NIF_ICON = $00000002;
{$EXTERNALSYM NIF_TIP}
NIF_TIP = $00000004;
end;
shell_notifyICON(sss.add,@notifyicno);
case msg.lparams of
WM_RButtonClick:
begin
end;
WM_LButtonDBclidk:
begin
end;
end;
可以使用第三方控件,可以设置 showballMessage();显示气泡提示。通过设置,可以很快的做出一个托盘应用。 TZTRayICON;
相关文章推荐
- 完美解决delphi7 安装Ehlib4.1.4报错的办法
- delphi7 编写的客户端通过RSLinx OPC方式连接ab 1400plc
- delphi7 安装/卸载控件通用方法
- 【Delphi学习】Form的borderstyle属性
- 【Delphi学习】关于SQL Server 2008的数据备份及还原
- delphi7中类的定义和使用
- (delphi 7) GUI应用程序开发_Button、BitBon、CheckBox学习
- delphi数据库学习笔记
- 关于delphi7中Edit菜单栏中bring to Front 和 send to back 连个功能的使用。
- Delphi7中的函数与过程(Function and Procedure)
- delph7中的类与对象
- delph7中的状态栏学习statusbar
- delphi7第三方空间和自带控件有什么区别
- delphi 开发技巧
- delphi7中面向对象2
- delphi7中的指针
- delphi7中的数组和记录类型
- 如何还原 sql server 中的备份文件(.bak文件)
- delphi中连接sql server 2008 数据库方法
- Delphi7 中使用ADO连接数据库基础知识学习