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

Вниз

меню из иконки в трее   Найти похожие ветки 

 
demon ©   (2008-08-03 21:36) [0]

Когда вызываю меню из иконки в трее, то оно не пропадает до тех пор, покуда я на него не кликну, даже если теряет фокус.
В чем тут дело?


 
Тын-Дын ©   (2008-08-03 21:40) [1]


> В чем тут дело?


Ошибка в программе.


 
Юрий Зотов ©   (2008-08-03 21:45) [2]

Перед показом меню: SetForegroundWindow(Wnd);
После показа меню: PostMessage(Wnd, WM_NULL, 0, 0);

Wnd - хэндл окна, которое получает сообщения от иконки.


 
Тын-Дын ©   (2008-08-03 21:50) [3]


> Юрий Зотов ©   (03.08.08 21:45) [2]


Вопрос - зачем

> PostMessage(Wnd, WM_NULL, 0, 0);

?


 
Юрий Зотов ©   (2008-08-03 22:06) [4]

> Тын-Дын ©   (03.08.08 21:50) [3]

Не помню. Но помню, что без этого действительно были какие-то глюки с меню. Какие именно - тоже не помню.

Склероз...
:о)


 
Тын-Дын ©   (2008-08-03 22:15) [5]


> Юрий Зотов ©   (03.08.08 22:06) [4]
> > Тын-Дын ©   (03.08.08 21:50) [3]Не помню. Но помню, что
> без этого действительно были какие-то глюки с меню. Какие
> именно - тоже не помню.Склероз...


С SetForegroundWindow(Wnd) всё понятно.
А без WM_NULL вроде бы глюков не наблюдал до сих пор-)
Ну да ладно-)


 
JanMihail   (2008-08-03 23:13) [6]

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
 // что-то тут нужно написать и все будет ок, только не помню что
 PopupMenu.AutoPopup := True;//вроде это но не помню
end;


 
demon ©   (2008-08-03 23:53) [7]


> Юрий Зотов ©   (03.08.08 21:45) [2]
> Перед показом меню: SetForegroundWindow(Wnd);После показа
> меню: PostMessage(Wnd, WM_NULL, 0, 0);Wnd - хэндл окна,
> которое получает сообщения от иконки.

Спасибо! Всё так просто ;)



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

Форум: "Начинающим";
Текущий архив: 2008.09.14;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.04 c
2-1217517420
self.name
2008-07-31 19:17
2008.09.14
insert в TFileStream


11-1193111866
Ajax
2007-10-23 07:57
2008.09.14
KOL + Turbo Delphi


2-1217770915
mokmoc
2008-08-03 17:41
2008.09.14
TLabel + Paint + Align


2-1217337692
Kolan
2008-07-29 17:21
2008.09.14
Работа с веб-сервисом.


2-1217518989
Евгений Р.
2008-07-31 19:43
2008.09.14
Есть ли такой компонент?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский