Привет!
Очень хотелось бы знать как написать прогу, чтобы её иконка отображалась рядом с часами на панели задач при запуске...
Заранее спасибо всем ответевшим.
Сообщение отредактировано: Cybertox -
System Tray? |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
System Tray? |
Cybertox |
Сообщение
#1
|
Гость |
Привет!
Очень хотелось бы знать как написать прогу, чтобы её иконка отображалась рядом с часами на панели задач при запуске... Заранее спасибо всем ответевшим. Сообщение отредактировано: Cybertox - |
CJ |
Сообщение
#2
|
Пионер Группа: Пользователи Сообщений: 84 Пол: Мужской Репутация: 2 |
Полно компонентов и юнитов для этого. Это все реализуется с помощью WinAPI.
-------------------- * Origin: "It's MY LIFE!!! © Jhon Bon Jovi"
|
trminator |
Сообщение
#3
|
Четыре квадратика Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: 4 |
Цитата Проще всего использовать RxTrayIcon компонент из библиотеки RxLib procedure TForm1.ApplicationMinimize(Sender : TObject); begin RxTrayIcon1.Show; ShowWindow(Application.Handle,SW_HIDE); end; procedure TForm1.RxTrayIcon1Click(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Application.Restore; SetForeGroundWindow(Application.MainForm.Handle); RxTrayIcon1.Hide; end; Автор ответа: Vit Это -- статья из DRKB, скачать ее -- где-то на delphist.com. Там много чего рассказано каждый день пользуюсь почти. Чтобы не переписывать сюда всю статью, добавлю, что также Цитата Для изменения значка в трее используется класс TShellNotifyIcon модуля ShellApi -------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
trminator |
Сообщение
#4
|
Четыре квадратика Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: 4 |
Вот еще можно компонент глянуть: http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=669
случайно наткнулся, сам не пробовал еще -------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
BlackShadow |
Сообщение
#5
|
Гость |
А через shellAPI это тоже легко делается. Через Shell_NotifyIcon в TForm1.FormCreate создаётся иконка и вешается на твоё окошко (сообщение NIM_ADD). В окошке добавляешь обработчик типа Procedure OnIcon(Var Message:TMessage);Message WM_MYICONMESSAGE, в которое через lParam передаются и WM_MOUSEMOVE и WM_LBUTTONUO и т. д.. В TForm1.FormDestroy надо удалить это чудо из трея (сообщение NIM_DELETE). А вообще почитай Win32s.hlp от Borland - там это очень внятно описано.
З. Ы. : а вообще ShelAPI - rulezzz |
P@sh@ |
Сообщение
#6
|
Бывалый Группа: Пользователи Сообщений: 180 Пол: Мужской Репутация: 2 |
я лично пользуюсь таким вот небольшим файликом (только это все же компонент, его надо инсталлировать сначала)
Прикрепленные файлы TrayIcon.pas ( 8.59 килобайт ) Кол-во скачиваний: 322 |
CJ |
Сообщение
#7
|
Пионер Группа: Пользователи Сообщений: 84 Пол: Мужской Репутация: 2 |
А это случайно не юнит Uris'a? Не очень удобен. Предлагаю во что!!!
-------------------- * Origin: "It's MY LIFE!!! © Jhon Bon Jovi"
|
Shadow |
Сообщение
#8
|
Lonely_Raven Группа: Пользователи Сообщений: 640 Пол: Мужской Репутация: 1 |
практически есть все от кнопок на заголовке
до системного трея типа достаточно удобен Код JCL+JVCL2BetaFullInstall Name: JCL+JVCL2BetaFullInstall.zip URL: http://umn.dl.sourceforge.net/sourceforge/jvcl/JCL+JVCL2BetaFullInstall.zip Size: 8662184 Create time: 30.05.2004 17:58:44 Complete time: 31.05.2004 00:31:39 Referer: Description: -------------------- Программа делает то что вы ей приказали а не то что бы ВАМ хотелось бы.
МЕРФИ --------------------- RTFM - Read the fucking manual --------------------- http://www.livejournal.com/users/lonley_raven/ |
Текстовая версия | 28.03.2024 18:15 |