Как сделать анимацию минимизации формы? |
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/