Страница 1 из 1
Меню в System Tray
Добавлено: 22 мар 2004, 11:43
Scorpion
Здрасте.
Я заношу иконку своей проги в System Tray.
:?: Не подскажите как сделать, чтобы при нажатии на иконку выскакивала менюшка.
Заранее благодарен......
Добавлено: 23 мар 2004, 07:09
Naeel Maqsudov
Код: Выделить всё
Для начала
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;