Creating a roll up Delphi form (with animation)

با استفاده از این کد می توانید یک فرم با انیمیشن داشته باشید.
با کلیک راست بر روی عنوان فرم می توانید اجرا برنامه را ببینید.
می توانید از این سورس کد دلفی در برنامه خودتان استفاده نمائید. فقط کافیه کپی کرده و در برنامه اضافه نمائید.

type

   TForm1 = class(TForm)

   private

     fOldClientHeight: Integer;

     procedure WMNCRButtonDown(var Msg: TWMNCRButtonDown) ; message WM_NCRBUTTONDOWN;

   public

   end;



var

   Form1: TForm1;



implementation

{$R *.dfm}



procedure TForm1.WMNCRButtonDown(var Msg: TWMNCRButtonDown) ;

var

   h : integer;

begin

   if (Msg.HitTest = HTCAPTION) then

   begin

     if (ClientHeight = 0) then

     begin

       for h := 0 to fOldClientHeight do ClientHeight := h;

       Application.ProcessMessages;

     end

     else

     begin

       fOldClientHeight := ClientHeight;

       for h := fOldClientHeight downto 0 do ClientHeight := h;

       Application.ProcessMessages;

     end;

   end;

end;