托盘图标不响应消息 已解决
来源:互联网 发布:sybase数据库离线语句 编辑:程序博客网 时间:2024/06/02 08:48
使用该结构NOTIFYICONDATA实现系统托盘图标都会存在一个问题:托盘图标不响应消息;这里给出关键的代码,即可简单解决这个问题
const
WM_BARICON = WM_USER+1000; //这段代码在type关键字前写上;
public
procedure WMBarlcon(var message:TMessage); message WM_BARICON;
procedure WMSYSCommand(var message:TMessage); message WM_SYSCOMMAND;
end;
var
Form1: TForm1;
implementation
procedure TForm1.WMSYSCommand(var message:TMessage);
var
Tray:NOTIFYICONDATA;
begin
if (message.WParam = SC_MINIMIZE) then
begin
Tray.cbSize:=SizeOf(Tray);
Tray.Wnd:=Self.Handle; //关键
Tray.uID:=1314;
Tray.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
Tray.uCallbackMessage:=WM_BARICON;
Tray.hIcon:=Application.Icon.Handle; //关键;只有这样才可以响应消息;
Tray.szTip:='Hi~';
Form1.Visible:=False;
Shell_NotifyIcon(NIM_ADD,@tray);
end;
if (message.WParam = SC_CLOSE) then
begin
Form1.Close;
end;
end;
procedure TForm1.WMBarlcon(var message:TMessage);
var
Tray:NOTIFYICONDATA;
begin
if (message.LParam=WM_LBUTTONDOWN) then
begin
Tray.cbSize:=SizeOf(Tray);
Tray.Wnd:=Self.Handle; //关键
Tray.uID:=1314;
Tray.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
Tray.uCallbackMessage:=WM_BARICON;
Tray.hIcon:=Application.Icon.Handle; //关键;只有这样才可以响应消息;
Tray.szTip:='Hi~';
Form1.Visible:=True;
Shell_NotifyIcon(NIM_DELETE,@tray);
end;
end;
{-----------------这里追加暂停按钮的代码-------------} //跟以上实现系统托盘图标代码无关;
procedure TForm1.Button3Click(Sender: TObject);
begin
if Button3.Caption = '暂停' then
begin
Button3.Caption := '继续';
end else Button3.Caption := '暂停';
repeat
Application.ProcessMessages;
Sleep(2);
until Button3.Caption = '暂停';
end;
- 托盘图标不响应消息 已解决
- 托盘图标的添加和消息响应
- VB托盘图标不响应WM_MOUSEMOVE的原因及解决方法
- 解决WIN32窗口不响应WM_LBUTTONDBLCLK消息
- 解决WIN32窗口不响应WM_LBUTTONDBLCLK消息
- 解决WIN32窗口不响应WM_LBUTTONDBLCLK消息
- 托盘(包括命令响应 消息响应)
- 插入U盘托盘区不显示已连接USB设备图标,怎么安全删除U盘
- 解决wine托盘图标覆盖问题
- 托盘图标
- 托盘图标
- 托盘图标
- 托盘图标
- 托盘图标
- vc托盘图标的实现以及托盘右键菜单的响应
- qt类似于qq托盘图标闪烁的消息提示
- qt类似于qq托盘图标闪烁的消息提示
- 消息提醒、带声音提示、托盘图标闪烁
- dedecms更换空间后后台登陆空白
- 迭代模式(Iterator)
- 状态模式(State)
- Unix域套接字
- DrawEdge
- 托盘图标不响应消息 已解决
- 三个repeater嵌套
- GRID方式ALV导出数据到本地丢掉最后一位的问题
- GCC后端及汇编发布(1)
- OpenGL ES之GLSurfaceView学习一:介绍
- GCC's bacl-end & assemble emission (1)
- JS获取浏览器信息
- POSIX线程:支持内存共享的简捷工具
- OpenGL ES之GLSurfaceView学习二:非交互式的实例