Программирование Delphi

Если приложение, которое отображается в системном трее, а не на панели задач сворачивается, это выглядит непрофессионально, если анимация сворачивания идет на панель задач, а не в системный трей. Чтобы изменить это, нужно изменить событие OnMinimize, например при помощи компонента TApplicationEvents:

Для начала поместите компонент TApplicationEvents и запишите событие OnMinimize и OnRestore.

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
   DrawAnimatedRects(Handle, IDANI_CAPTION, BoundsRect,
     Rect(Width - 20, Height, Width - 10, Height));
end;

В старых версиях Delphi компонент TApplicationEvents существует, поэтому нужно назначить событие, как показано в коде:

procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.OnMinimize:=ApplicationEvents1Minimize;
end;

Разворачивание с анимацией из системного трея может быть достигнута путем обмена двух параметров. Это отображено в коде события OnRestore:

procedure TForm1.ApplicationEvents1Restore(Sender: TObject);
begin
   DrawAnimatedRects(Handle, IDANI_CAPTION,
     Rect(Width - 20, Height, Width - 10, Height), BoundsRect);
end;

It’s all!