Как сделать анимацию минимизации формы?

Previous  Top  Next

    
 

 

 

In FormShow:

Code:

var

RecS, RecL: TRect;

begin

RecS := Rect(Screen.Width, Screen.Height, Screen.Width, Screen.Height);

RecL := ThisForm.BoundsRect;

DrawAnimatedRects(GetDesktopWindow, IDANI_CAPTION, RecS, RecL);

{ ... }

end;

 

 

 

In FormHide:

Code:

var

RecS, RecL: TRect;

begin

HideTimer.Enabled := False;

RecS := Rect(Screen.Width, Screen.Height, Screen.Width, Screen.Height);

RecL := ThisForm.BoundsRect;

DrawAnimatedRects(GetDesktopWindow, IDANI_CAPTION, RecL, RecS);

end;

 

 

 

©Drkb::00416

Взято с Delphi Knowledge Base: http://www.baltsoft.com/