Карта сайтаСсылкиКонтакты

Анимация при сворачивании окна в трей

PDF Печать
Статьи

Если приложение, которое отображается в системном трее, а не на панели задач сворачивается, это выглядит непрофессионально, если анимация сворачивания идет на панель задач, а не в системный трей. Чтобы изменить это, нужно изменить событие 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!


 

Добавить комментарий


Защитный код
Обновить