托盘图标不响应消息已解决

最新推荐文章于 2023-07-29 21:29:40 发布

god00

最新推荐文章于 2023-07-29 21:29:40 发布

阅读量793

点赞数

分类专栏： Delphi 结构文章标签： button shell delete user

本文链接：https://blog.csdn.net/god00/article/details/6311205

版权

Delphi 结构专栏收录该内容

2 篇文章 0 订阅

订阅专栏

使用该结构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;