Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Не срабатывает BalloonTimeout у TrayIcon 
:(
    Опции темы
v258
Дата 26.10.2008, 18:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 93
Регистрация: 19.7.2005
Где: Краснодарский кра й

Репутация: 2
Всего: 2
Delphi 2006, 2007, компонент TrayIcon

Код

procedure TForm1.TrayIcon1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  TrayIcon1.ShowBalloonHint;
end;



BalloonTimeout выставлял от 3 ms, баллон появляется при наведении мыщи на иконку в трее, но после ухода мыши так и остается висеть. Может я чего делаю не так ?  smile 
PM MAIL WWW   Вверх
tHE_EGOiSTE
Дата 26.10.2008, 19:37 (ссылка) | (голосов:3) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 60
Регистрация: 19.10.2007
Где: Vyksa

Репутация: 1
Всего: 1
используй компонент CoolTrayIcon
PM MAIL WWW ICQ Skype   Вверх
v258
Дата 26.10.2008, 20:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 93
Регистрация: 19.7.2005
Где: Краснодарский кра й

Репутация: 2
Всего: 2
Не переписывать же прогу под новый компонент только из-за того, что захотелось ballon вместо хинта сделать  smile 

Кроме того на Turbo Delphi сторонные компоненты не ставятся 
PM MAIL WWW   Вверх
tHE_EGOiSTE
Дата 26.10.2008, 20:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 60
Регистрация: 19.10.2007
Где: Vyksa

Репутация: 1
Всего: 1
Дело в том, что с этим компонентом какие то проблемы. На сайте разработчиков мелькали какие-то отрывки похожих сообщений. Я пока так ине разобрался. Мне тоже интересен стал этот вопрос

Это сообщение отредактировал(а) tHE_EGOiSTE - 26.10.2008, 20:36
PM MAIL WWW ICQ Skype   Вверх
Данкинг
Дата 26.10.2008, 20:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(tHE_EGOiSTE @ 26.10.2008,  19:37)
используй компонент CoolTrayIcon

По-моему, и там тоже хинт не исчезает через заданное время. Что за глюки - не знаю.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
v258
Дата 26.10.2008, 21:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 93
Регистрация: 19.7.2005
Где: Краснодарский кра й

Репутация: 2
Всего: 2
Как вариант - можно спрятать-показать иконку, только как отловить момент, когда курсор уйдет с нее ?

Но тогда наблюдается промаргивание иконки и перескок ее в крайнюю левую позицию в трее. В общем - не вариант  smile 

Это сообщение отредактировал(а) v258 - 26.10.2008, 21:04
PM MAIL WWW   Вверх
tHE_EGOiSTE
Дата 26.10.2008, 21:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 60
Регистрация: 19.10.2007
Где: Vyksa

Репутация: 1
Всего: 1
Всё. Решил твою проблему (один из способов). Пришлось подумать малость ;) 
\\
Вообщем используй. Ах....да...не забудь поместить на форму таймер.
Код

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    TrayIcon1.BalloonHint := '';
    TrayIcon1.ShowBalloonHint;
    Timer1.Enabled := false;
end;

procedure TForm1.TrayIcon1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
    i: Integer;
begin
    TrayIcon1.BalloonHint := 'Extravaganta';
    TrayIcon1.BalloonTimeout := 1000;
    TrayIcon1.ShowBalloonHint;
    Timer1.Interval := TrayIcon1.BalloonTimeout;
    Timer1.Enabled := True;
end;


Это сообщение отредактировал(а) tHE_EGOiSTE - 26.10.2008, 21:56
PM MAIL WWW ICQ Skype   Вверх
mr.Anderson
Дата 26.10.2008, 21:47 (ссылка) | (голосов:3) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128
tHE_EGOiSTE, нет, оно, конечно, молодец, что помог, но вот так открыто на форуме просить плюс... Неприлично, мягко говоря. Тебе поставят сами, если посчитают нужным. Без просьб.


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
v258
Дата 26.10.2008, 21:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 93
Регистрация: 19.7.2005
Где: Краснодарский кра й

Репутация: 2
Всего: 2
В общем идея простая - вызвать ShowBalloonHint без текста. Спасибо, будем копать в эту сторону 

Про плюсик - это мне еще рано  smile 

Цитата

Обнаружена ошибка:

У Вас недостаточно постов, чтобы изменять репутацию пользователей. Необходимо 100 постов.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0737 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.