Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 175

/ вопрос открыт /

Приветствую, уважаемые эксперты! У меня возникло несколько вопросов:
1) Юзаю TrayIcon, Подскажите как сделать чтобы при нажатие кнопки свернуть и кнопки exit приложение сворачивалось в трей;
2) Как сделать чтобы при на ведении курсора мыши на иконку в трее появлялась подсказка;
3) Как сделать так, чтобы в PopupMenu были по мимо надписей еще и значки;

Зарание спасибо!!!

Приложение:
  1.  


Ученый Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Ученый (статус: 8-ой класс)
Вопрос отправлен: 8 декабря 2008, 13:56
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 16; последнее сообщение — 9 декабря 2008, 18:24; участников в обсуждении: 3.
Вадим К

Вадим К (статус: Академик), 8 декабря 2008, 14:08 [#1]:

Что бы были значки - подключить ImageList с картинками к PopupMenu?
По другим вопросам - демки к компоненту смотрели?
Галочка "подтверждения прочтения" - вселенское зло.
Ученый

Ученый (статус: 8-ой класс), 8 декабря 2008, 14:27 [#2]:

"По другим вопросам - демки к компоненту смотрели?"- нет не смотрел. Просто я совсем не давно перешел на Делфи 2007, поэтому с TrayIcon не работал, т.к. в делфи 7 его не было. Помогите пожалуйста разобраться....
Ученый

Ученый (статус: 8-ой класс), 8 декабря 2008, 18:26 [#3]:

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

Вадим К (статус: Академик), 8 декабря 2008, 18:42 [#4]:

А попробуйте обычный PopupMenu. Но кроме подключения, надо ещё пунктам меню назначить эти картинки. Это делается?
Галочка "подтверждения прочтения" - вселенское зло.
Ученый

Ученый (статус: 8-ой класс), 8 декабря 2008, 18:46 [#5]:

Вот наверное здесь как раз и причина. а как задать каждому названию картинку, подскажите пожалуйста?
Вадим К

Вадим К (статус: Академик), 8 декабря 2008, 19:12 [#6]:

Есть такое свойсво у пунктов меню - ImageIndex
Галочка "подтверждения прочтения" - вселенское зло.
Ученый

Ученый (статус: 8-ой класс), 8 декабря 2008, 19:19 [#7]:

Так с меню разобрался вродебы. Спасибо! А вот что мне бы с TrayIcon сделать, нужно дополнительно компонент или все таки можно как-нибудь сделать по другому чтобы приложение сворачивалось в трей?
Вадим К

Вадим К (статус: Академик), 8 декабря 2008, 19:33 [#8]:

Точно можно. Не надо дополнительно устанавливать ничего.
Галочка "подтверждения прочтения" - вселенское зло.
Ученый

Ученый (статус: 8-ой класс), 8 декабря 2008, 19:35 [#9]:

Пожалуйста подскажите как? а то я уже и так и сяк пробовал, а только результат один! точнее никакого...
min@y™

min@y™ (статус: Доктор наук), 8 декабря 2008, 20:16 [#10]:

Да не парься ты. Скачай CoolTrayIcon, всё уже сделано до (для) тебя.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Ученый

Ученый (статус: 8-ой класс), 8 декабря 2008, 20:25 [#11]:

Да вот тоже что про CoolTrayIcon по думываю, пользовался им еще на 7 делфях.
Ученый

Ученый (статус: 8-ой класс), 8 декабря 2008, 20:59 [#12]:

И наконец господа эксперты последний вопрос: как можно сделать так, что бы при нажатии на "свернуть" приложение не сворачивалось, а происходило бы какое-то другое событие. Если расматривать кнопку "закрыть" то там есть FormCloseQuery, а вот для свернуть я что то не знаю...
Вадим К

Вадим К (статус: Академик), 8 декабря 2008, 22:20 [#13]:

Пришел домой, запустил делфи, и за пару минут написал код.
Итак - свернуть в трей. Это просто скрыть форму и показать иконку в трее. Вот и всё, не более.
Итого толучаем такое код
//Кнопка свернуть
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Hide;
  TrayIcon1.Visible:=true;
end;
 
procedure TForm1.TrayIcon1DblClick(Sender: TObject);
begin
  Form1.show;
  TrayIcon1.Visible:=false;
end;
Теперь займёмся балуном. Для этого заполним свойства BalloonTitle и BalloonHint. А в событие MouseMove для компонента TrayIcon просто напишем TrayIcon1.ShowBalloonHint.

Ну и на сладкое. Как отловить минимизацию и другие подобные события. Ставим на форму компонент ApplicationEvents (вкладка Additional). Свойств у этого компонента мало, но событий:).
Галочка "подтверждения прочтения" - вселенское зло.
Ученый

Ученый (статус: 8-ой класс), 9 декабря 2008, 15:57 [#14]:

Большое спасибо!!! Практически со всем разобрался. Проблема вот в чем, использую ApplicationEvents, в событии ApplicationEvents1Minimize прописываю Form1.Hide, а в TrayIcon1Click Form1.Show, теперь при нажатии на свернуть, приложение сворачивается и скрывается, при клике на иконку оно появляется но в свернутом виде, тоесть надо дополнительно кликнуть мышью на панели задач чтобы оно развернулось. Можно сделать чтобы при нажатии на "свернуть" форма не сворачивалась, а просто скрывалась или хотя бы при клике на иконку в трее она появлялась и сразу развернутой?
min@y™

min@y™ (статус: Доктор наук), 9 декабря 2008, 17:43 [#15]:

Вместо Form1.Show в TrayIcon1Click вставь Application.Restore();
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Ученый

Ученый (статус: 8-ой класс), 9 декабря 2008, 18:24 [#16]:

Спасибо господа! Все теперь разобрался! Еще раз большое спасибо!!!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:46
Выполнено за 0.03 сек.