Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ System Tray?

Автор: Cybertox 29.05.2004 8:21

Привет!

Очень хотелось бы знать как написать прогу, чтобы её иконка отображалась рядом с часами на панели задач при запуске...

Заранее спасибо всем ответевшим.

Автор: CJ 30.05.2004 20:05

Полно компонентов и юнитов для этого. Это все реализуется с помощью WinAPI.

Автор: trminator 31.05.2004 0:35

Цитата
Проще всего использовать 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. Там много чего рассказано smile.gif каждый день пользуюсь почти. Чтобы не переписывать сюда всю статью, добавлю, что также
Цитата
Для изменения значка в трее используется класс TShellNotifyIcon модуля ShellApi

Автор: trminator 31.05.2004 0:43

Вот еще можно компонент глянуть: http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=669

случайно наткнулся, сам не пробовал еще smile.gif

Автор: BlackShadow 31.05.2004 14:31

А через 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 smile.gif

Автор: P@sh@ 31.05.2004 22:19

я лично пользуюсь таким вот небольшим файликом (только это все же компонент, его надо инсталлировать сначала)


Прикрепленные файлы
Прикрепленный файл  TrayIcon.pas ( 8.59 килобайт ) Кол-во скачиваний: 323

Автор: CJ 2.06.2004 1:57

А это случайно не юнит Uris'a? smile.gif Не очень удобен. Предлагаю http://karatetski.narod.ru/traybar.zip

Автор: Shadow 2.06.2004 16:01

практически есть все от кнопок на заголовке
до системного трея типа smile.gif
достаточно удобен

Код

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: