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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с Tray, Как с помощью Delphi 7 создать программу 
V
    Опции темы
Letov
Дата 29.3.2007, 22:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 4
Никак не могу разобраться: как же в 7 Delphi сделать программу, работающую с Tray. Задача у меня следующая: нужно свернуть программу в tray с помощью кнопки "свернуть" так, чтобы ее не быль видно на панели переключения программ.
Заранее спасибо.


--------------------
Не бывает плохих языков программирования. Бывают плохие программисты...
PM MAIL   Вверх
Данкинг
Дата 29.3.2007, 22:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 11
Всего: 130
CoolTrayIcon smile  smile 


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


Опытный
**


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

Репутация: нет
Всего: 4
И где это взять???
В моей Delphi 7 почему-то этого нет!

Но все равно, спасибо! smile 


--------------------
Не бывает плохих языков программирования. Бывают плохие программисты...
PM MAIL   Вверх
Данкинг
Дата 29.3.2007, 23:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 11
Всего: 130
Не помню, откуда я качал, вот в яндексе нашёл
http://www.x-sfera.de/index.php?option=com...tdown&id=26


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


Опытный
**


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

Репутация: нет
Всего: 4
У меня тут есть один пример, но опять же в Delphi 7 при компиляции модуля возникают ошибки. Пытался исправить, так не получается.
Исходник в прикрепленном файле.
Помогите, плз. smile 

Присоединённый файл ( Кол-во скачиваний: 13 )
Присоединённый файл  TrayIcon.zip 4,52 Kb


--------------------
Не бывает плохих языков программирования. Бывают плохие программисты...
PM MAIL   Вверх
VICTAR
Дата 30.3.2007, 00:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 10
Всего: 80
Цитата(Letov @  29.3.2007,  23:55 Найти цитируемый пост)
при компиляции модуля возникают ошибки

Не знаю, все компилируется хорошо, а вот работает криво. Воспользуйся CoolTrayIcon, как советовалДанкинг, тем более он тебе прямую ссылку дал.
PM MAIL   Вверх
Snowy
Дата 30.3.2007, 10:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484
FAQ: http://forum.vingrad.ru/index.php?act=modu...amp;section=712 !
PM MAIL   Вверх
Snowy
Дата 30.3.2007, 10:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484
Цитата(Данкинг @ 29.3.2007,  22:45)
CoolTrayIcon smile  smile

Ага. Подобного г... добра... Вагоны
http://www.torry.ru/pages.php?id=245

И таких "полезных" поделок море.
Вот например URL Label'ы http://www.torry.ru/pages.php?id=128
А вот разные Edit'ы http://www.torry.ru/pages.php?id=128 Среди них позволяющие вводить только числа, или дату, или числа с плавающей точкой...
Я могу наприводить примеров разного г... то есть добра... обёрнутого в компоненты.
Причём реализовать это можно в 2-10 строках кода.
То так же не интересно... Это так сложно... Даже готовый пример - его нужно вставить в нужное место, а мозгов нет ни кусочка...
Правильно, лучше скачать кучу идиотских компонентов и мышкописать.
Код - это же скучно... Гораздо прикольнее таскать всякие прикольные компонентики по форме.
Особенно невизуальные - они такие классные smile
Мы же программисты! Зачем нам думать и писать код! Наша задача разложить красиво компонентики на форме - пусть они сами всё делают smile 

Кстати, ни у кого нет компонента, который ищет льва в пустыне и помещает его в клетку? smile 
PM MAIL   Вверх
Letov
Дата 31.3.2007, 10:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 4
Спасибо всем большое! Нашел множество новых компонентов.


--------------------
Не бывает плохих языков программирования. Бывают плохие программисты...
PM MAIL   Вверх
Yanis
Дата 31.3.2007, 12:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 6
Всего: 111
Как достал уже этот вопрос про «запуздыривание икноки в трей» или «сворачивание проги в трей». Замечу, что последний вариант самый безграмотный и моментавльно выявляет уровень автора выражения. Это самый избитый вопрос в программировании. Хотя
Цитата(Snowy @  30.3.2007,  11:52 Найти цитируемый пост)
реализовать это можно в 2-10 строках кода.

Не зря по инту ходят слухи, что дельфисты только и гуляют по форумам задавая вопросы как найти компонент реализующий тот или иной функционал.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Letov
Дата 31.3.2007, 19:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 4
Цитата(Yanis @  31.3.2007,  12:06 Найти цитируемый пост)
Как достал уже этот вопрос про «запуздыривание икноки в трей» или «сворачивание проги в трей». Замечу, что последний вариант самый безграмотный и моментавльно выявляет уровень автора выражения. Это самый избитый вопрос в программировании. ХотяЦитата(Snowy @  30.3.2007,  11:52 )реализовать это можно в 2-10 строках кода.Не зря по инту ходят слухи, что дельфисты только и гуляют по форумам задавая вопросы как найти компонент реализующий тот или иной функционал.

Лучше бы подсказал, если конечно знаешь, как с этом работать. 

Критику наводить все могут, а вот что дельное сказать...


--------------------
Не бывает плохих языков программирования. Бывают плохие программисты...
PM MAIL   Вверх
ama_kid
Дата 31.3.2007, 20:46 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


АСУТП-кодер
***


Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 9
Всего: 95
Цитата(Letov @  31.3.2007,  19:18 Найти цитируемый пост)
Критику наводить все могут, а вот что дельное сказать... 
Ты бы это... постарался прислушаться к таким советам, ибо такие советы - на пользу идут...
А дельного тут не так уж и сложно подсказать:
Установка иконки в трей:
Код

function SetIconInTray: boolean;
var
 nid:PNOTIFYICONDATA;
 bSuccess:boolean;
begin
 new(nid);
 nid.cbSize := sizeof(nid);
 nid.szTip:='Мой тултип';
 nid.hIcon := Application.Icon.Handle;
 nid.Wnd := fmMain.Handle;
 nid.uID := id_MyIcon;
 nid.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
 nid.uCallbackMessage := WM_MyMessTray;  // Нужно, если требуется обрабатывать сообщения от 
                                         // иконки в трее, например, для обработки контекстного 
                                         // меню иконки...
 bSuccess:= Shell_NotifyIcon(NIM_ADD, nid);
 Result:=bSuccess;
end;

Удаление иконки из трея:
Код

function DeleteIconFromTray: boolean;
var
 nid:PNOTIFYICONDATA;
 bSuccess:boolean;
begin
 new(nid);
 nid.cbSize := sizeof(nid);
 nid.Wnd := fmMain.Handle;
 nid.uID := id_MyIcon;
 bSuccess := Shell_NotifyIcon(NIM_DELETE, nid);
 Result:=bSuccess;
end;

Ну, и аналогично делается модификация иконки в трее... Для того, чтобы это все работало, надо не забыть подключить ShellAPI в раздел uses...
Как видишь, все очень просто, обычно для того, чтобы это понять - достаточно на несколько минут заглянуть в MSDN и на самом деле прекратить уже превращать процесс программирования в "поиск соответствующего компонента"...


--------------------
самурай без меча подобен самураю с мечом, но только без меча 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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