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

Вниз

менять Hint пока мышь в SysTray   Найти похожие ветки 

 
BOB16   (2006-12-20 22:53) [0]

Как можно заменить текст Hint, который появляется над иконкой моей программы при наведении на неё мыши,и не убирая мышь с неё.

Если вызывать:
FIconData.uFlags:= NIF_TIP;
StrPLCopy(FIconData.szTip, "NewHint", SizeOf(FIconData.szTip) - 1);
Shell_NotifyIcon(NIM_MODIFY,@FIconData)

текст иконки не меняется пока мыша наведена.

Если делать
...
Shell_NotifyIcon(NIM_DELETE,@FIconData)
....
Shell_NotifyIcon(NIM_ADD,@FIconData)
то Tray - часто моргает - постоянно перерисовывается...

Можно ли сделать так чтобы не моргало, и в тоже время освежался.

Понадобилось для того, чтобы юзер наведя на иконку программы, мог видеть процент выполнения процесса.


 
Rouse_ ©   (2006-12-21 11:00) [1]

сделай просто
Shell_NotifyIcon(NIM_ADD,@FIconData)


 
BOB16   (2006-12-21 19:54) [2]

>[1]
Попробовал
>сделай просто
>Shell_NotifyIcon(NIM_ADD,@FIconData)


Когда иконка уже торчит в трее - ничего не происходит с изменением Hint"а!
если сделать NIM_MODIFY, то обновляется.

Но опять-таки, проблема в том, чтобы мыша при наведении на иконку в трее не уходит с иконки и появившийся Hint - должен перерисовываться сам: без моргания, т.е. не делать NIM_DELETE-NIM_ADD.


 
BOB16   (2007-01-08 21:05) [3]

кому интересен вариант решения поставленной задачи, см:
http://www.delphikingdom.ru/asp/answer.asp?IDAnswer=47838

Спасибо всем! Обсуждение закрыто.



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

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

Наверх




Память: 0.44 MB
Время: 0.041 c
15-1179846139
Andy BitOff
2007-05-22 19:02
2007.06.17
20.05.2007 умерла Тётя Валя


15-1179529496
Kostafey
2007-05-19 03:04
2007.06.17
Существуют готовые ли решения перевода числа в прописной вариант


1-1176961998
Slider007
2007-04-19 09:53
2007.06.17
Возвращение результата формы (не ModalResult)


3-1175001305
DelphiLexx
2007-03-27 17:15
2007.06.17
Создание полей произвольных типов, универсальным способом


2-1180172140
antonyan
2007-05-26 13:35
2007.06.17
1C





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