L
littlecaibird
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.NotifyIconMessage(var Message: TMessage);
var
MousePoint:TPoint;
begin
Case Message.LParam of
WM_LButtonDBLclk:
begin
ShowWindow(handle,SW_SHOW);
end;
WM_LButtonDown:
begin
GetCurSorPos(MousePoint);
Popupmenu2.Popup(MousePoint.X,MousePoint.Y);
end;
end;
end;
以上是我写的代码：
它有个大大的问题：
在我写的系统托盘程序中：
左键双击的时候，连左键按下的代码也被运行了？？
怎么样才能像QQ那样，当QQ最小化到系统托盘里时，左键双击时，那么执行的就是左键双击的代码。左键按下时，就执行左键按下时的代码！！！
而我的却变成这样：
左键双击时，连左键按下的代码也执行了！！
var
MousePoint:TPoint;
begin
Case Message.LParam of
WM_LButtonDBLclk:
begin
ShowWindow(handle,SW_SHOW);
end;
WM_LButtonDown:
begin
GetCurSorPos(MousePoint);
Popupmenu2.Popup(MousePoint.X,MousePoint.Y);
end;
end;
end;
以上是我写的代码：
它有个大大的问题：
在我写的系统托盘程序中：
左键双击的时候，连左键按下的代码也被运行了？？
怎么样才能像QQ那样，当QQ最小化到系统托盘里时，左键双击时，那么执行的就是左键双击的代码。左键按下时，就执行左键按下时的代码！！！
而我的却变成这样：
左键双击时，连左键按下的代码也执行了！！