![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 23.05.2013
Сообщений: 11
|
![]()
как сделать что бы при сворачивание программы при наведение мышкой на значек в трее
показывало например Cood:12 Bad:5768 Error:7677 |
![]() |
![]() |
![]() |
#2 |
Недо
Участник клуба
Регистрация: 11.08.2011
Сообщений: 1,394
|
![]()
Используйте компонент TTrayIcon
С помощью программирования можно разбогатеть и изменить мир к лучшему (с) Бьерн Страуструп
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 23.05.2013
Сообщений: 11
|
![]() |
![]() |
![]() |
![]() |
#4 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]() Цитата:
Если нет - ищи среди LMD или JVCL компонент TrayBaloonHint или что-то типа того.
I'm learning to live...
|
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 23.05.2013
Сообщений: 11
|
![]() |
![]() |
![]() |
![]() |
#6 |
Форумчанин Подтвердите свой е-майл
Регистрация: 01.12.2006
Сообщений: 514
|
![]()
на событие у этого компонента OnMouseMove, вызывай ShowBaloonHint (или как там оно зовется)
procedure TForm1.JvTrayIcon1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin JvTrayIcon1.BalloonHint('sag','asfr '); end; только надо обработать чтобы не скакал, пока мыша над иконкой в трее
Пишу на Delphi за еду
Последний раз редактировалось Toxa; 23.05.2013 в 10:27. Причина: попробовал код |
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 23.05.2013
Сообщений: 11
|
![]()
Сворачивание и разворачивание правельное?
procedure TForm1.CoolTrayIcon1Click(Sender: TObject); begin CoolTrayIcon1.HideMainForm; CoolTrayIcon1.IconVisible := not CoolTrayIcon1.IconVisible; CoolTrayIcon1.ShowMainForm; |
![]() |
![]() |
![]() |
#8 |
Форумчанин Подтвердите свой е-майл
Регистрация: 01.12.2006
Сообщений: 514
|
![]()
а работает?
Пишу на Delphi за еду
|
![]() |
![]() |
![]() |
#9 |
Пользователь
Регистрация: 23.05.2013
Сообщений: 11
|
![]() |
![]() |
![]() |
![]() |
#10 |
Пользователь
Регистрация: 23.05.2013
Сообщений: 11
|
![]()
[QUOTE=Toxa;1232724]на событие у этого компонента OnMouseMove, вызывай ShowBaloonHint (или как там оно зовется)
procedure TForm1.JvTrayIcon1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin JvTrayIcon1.BalloonHint('sag','asfr '); end; я не понел что это вообще? |
![]() |
![]() |