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;

...

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

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