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

Вниз

SystemTrayIcon   Найти похожие ветки 

← →
Aks   (2004-05-07 17:19) [0]

В общем я создал эту икрнку в системтрее. Теперь мне нужно, чтобы, когда на эту иконку клик, вылезала менюшка. Помогите, пожалуйста

---

← →
Skier ©   (2004-05-07 17:30) [1]

Не стыдно ?

---

← →
Aks   (2004-05-07 17:30) [2]

Что? Никто не знает?

---

← →
zhe ©   (2004-05-07 17:36) [3]

const WM_TRAYICON = WM_USER;

...

with NotifyIconData do
 begin
   szTip := "Timer";
   HIcon := HIcon0;
   cbSize := SizeOf(NotifyIconData);
   Wnd := Handle;
   uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;;
   uCallbackMessage := WM_TRAYICON;
 end;

...

procedure TForm1.WndProc(var message: TMessage);
begin
 inherited;
 if (message.msg = WM_TRAYICON) and ((message.LParam = WM_LBUTTONDOWN)
   or (message.LParam = WM_RBUTTONDOWN)) then
   begin
     Application.MainForm.Visible := True;
     Shell_NotifyIcon(NIM_Delete, @NotifyIconData);
     Main.Suspend;
   end;
end;

...

---

← →
zhe ©   (2004-05-07 17:38) [4]

Application.MainForm.Visible := True;
     Shell_NotifyIcon(NIM_Delete, @NotifyIconData);
     Main.Suspend; - это любое действие, в твоём случае может быть попап менюшки

---

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

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

Наверх

Память: 0.47 MB
Время: 0.023 c