Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.034 c
1-1083924175
kull
2004-05-07 14:02
2004.05.23
Как избавиться от goto?


8-1078455124
fidres
2004-03-05 05:52
2004.05.23
Поисковая система


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


14-1082550292
WebErr
2004-04-21 16:24
2004.05.23
private vs protected


1-1083417556
Lena19
2004-05-01 17:19
2004.05.23
текст разными цветами и шрифтом + bitmap





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский