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

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