Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

Икона в трее   Найти похожие ветки 

← →
rustamus ©   (2004-01-06 10:59) [0]

Скажите пожалуйста, как подключить к иконе в трее контекстное меню? Заранее благодарен.

---

← →
AbrosimovA ©   (2004-01-06 11:34) [1]

private
procedure NotifyIcon(var Msg : TMessage);message WM_USER + 100;

procedure TForm1.NotifyIcon(var Msg : TMessage);
var P: TPoint;
begin
case Msg.LParam of
WM_LBUTTONDBLCLK :
begin
ShowWindow(Application.Handle,SW_SHOW);
Application.Restore;
Shell_NotifyIcon(NIM_DELETE,@TrayIcon);
end;
WM_RBUTTONDOWN :
begin
GetCursorPos(P);
PopupMenu1.Popup(P.X, P.Y); //Вывод контекстного меню
end;
end;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2004.03.14;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.033 c