Текущий архив: 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.44 MB
Время: 0.033 c
