TrayIcon

  

Компонент Delphi TrayIcon не визуальный компонент обеспечивающий управление значком в области System Tray. Эта область представляет собой область полосы задач, которая размещается в правом нижнем углу экрана. В этой области целесообразно размещать пиктограммы, связанные с приложениями, которые постоянно должны выполняться в фоновом режиме.Приложение, использующее компонент TrayIcon, может отображаться в области System Tray статической пиктограммы. В этом случае свойство Animate должно быть заданно равным false. Тогда при значении свойства Visible равном true отображается или пиктограмма, указанная свойством Icon или, если в свойстве Icons задан список пиктограмм, то отображается пиктограмма, номер которой задан свойством IconIndex. Изменяющаяся пиктограмма будет отображаться в том случае если свойство Animate равно true. С пиктограммой можно связать всплывающее окно. Оно вызывается методом ShowBalloonHint. Например, этот метод можно вызвать в обработчике событий OnClick. Текст всплывающего окна задается свойство BalloonHint. В окне может показываться пиктограмма, задаваемая свойством BalloonFlags. Чтобы сделать форму невидимой при старте, вставьте в обработчик событий формы OnCreate следующий код.

1
2
3
4
procedure TForm14.FormCreate(Sender: TObject);
begin
   application.ShowMainForm:=false;
end;

А если необходимо что бы главная форма приложения появлялась после двойному щелчку по пиктограмме, необходимо в обработчик событий OnDblClick компонента TrayIcon следующий код

1
2
3
4
5
procedure TForm14.TrayIcon1DblClick(Sender: TObject);
begin
   show(); //делает форму видимой
   setForegroundWindow(handle); //выдвигает окно на первый план
end;

На форме может располагаться список изображений ImageList, содержащий несколько пиктограмм. В свойстве Icons компонента TrayIcon надо сослаться на этот список, а в свойстве IconIndex надо задать номер пиктограммы в списке. Тогда при желании в зависимости от режима работы приложения можно изменять пиктограммы.