System Tray? Опции

[Cybertox]

Привет!

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

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

Сообщение отредактировано: Cybertox - 29.05.2004 4:27

[trminator]

Проще всего использовать 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