точно не знаю(никогда не делал). Но вот как в моём приложении, которое можно свернуть в трей, обрабатываются клики мышки по иконке:
const WM_MYICONNOTIFY = WM_USER + 123;
type
TForm1 = class(TForm)
...
procedure WMICON(var msg: TMessage); message WM_MYICONNOTIFY;
...
...
procedure TForm1.WMICON(var msg: TMessage);
var P : TPoint;
nidata : TNotifyIconData;
begin
case msg.LParam of
WM_LBUTTONDOWN, WM_RBUTTONDOWN:
begin
GetCursorPos(p);
SetForegroundWindow(Application.MainForm.Handle);
...
...
end;
WM_LBUTTONDBLCLK : begin
RestoreMainForm;
DeleteTrayIcon(1);
SetForeGroundWindow(Application.MainForm.Handle);
SetActiveWindow(Application.MainForm.Handle);
end;
WM_MOUSEMOVE: begin
...
...
end;
end;
Так вот эти WM_LBUTTONDOWN, WM_LBUTTONDBLCLK и тд беруться из юнита Messages. Там же есть WM_MOUSEWHEEL. Вот имхо нада этот WM_MOUSEWHEEL как то сделать в данном случае на DBGrid и StringGrid, так же как у меня на иконке сделано. Хотя может есть способ и попроще.
|