Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.025 c
14-1083258350
Knight
2004-04-29 21:05
2004.05.23
Вопрос по TDBGrid...


3-1083020634
rosl
2004-04-27 03:03
2004.05.23
запрос SQL


7-1081867216
nv_
2004-04-13 18:40
2004.05.23
ESC последовательности


14-1083828472
Sour
2004-05-06 11:27
2004.05.23
Object Inspector


3-1083063659
infom
2004-04-27 15:00
2004.05.23
Есть ли такой компонент?