PDA

Просмотр полной версии : Меню в System Tray



Scorpion
22.03.2004, 11:43
Здрасте.
Я заношу иконку своей проги в System Tray.
:?: Не подскажите как сделать, чтобы при нажатии на иконку выскакивала менюшка.
Заранее благодарен......

Naeel Maqsudov
23.03.2004, 07:09
Для начала

Const
CM_MyTrayMsg = WM_USER+1;


Затем, при создании иконки в структуре NOTIFYICONDATA
.uCallbackMessage = CM_MyTrayMsg;
.hWnd = Form1.Handle;


В самой Form1
protected
procedure WndProc(var Message: TMessage); override;

.....

procedure WndProc(var Message: TMessage); override;
begin
with Message do begin
if Message=CM_MyTrayMsg then begin
case lParam of
WM_LBUTTONDBLCLK: ....;
WM_RBUTTONDBLCLK: ....;
WM_MBUTTONDBLCLK: ....;
WM_MOUSEMOVE: ....;
WM_LBUTTONDOWN: ....;
WM_LBUTTONUP: ....;
WM_RBUTTONDOWN: ....;
WM_RBUTTONUP: ....;
WM_MBUTTONDOWN: ....;
WM_MBUTTONUP: ....;
end;
end;
Inherited;
end;
end;