Animasi Form Saat Run

Prosedur untuk menampilkan dan menutup form menggunakan animasi.
procedure brAnimasiTivi(FForm:TForm; Muncul:Boolean);
var
i,j,k,l:Integer;
hs : array [0..600] of hrgn;
begin
j:=0;i:=0;l:=0;
//--- Muncul
if Muncul then begin
for k:=0 to 599 do begin
if (j+2<(FForm.Height div 2)) then begin j:=j+2; if j>(FForm.height div 2) then i:=FForm.width;
hs[k]:=CreateRectRgn(i,j,FForm.width-i,FForm.height-j);
end else if (i+6<(FForm.Height div 2)) then begin j:=j+2; if j>(FForm.height div 2) then
i:=FForm.width;
hs[k]:=CreateRectRgn(i,j,FForm.width-i,FForm.height-j);
end else if (i+6
i:=i+8;
hs[k]:=CreateRectRgn(i,j,FForm.width-i,FForm.height-j);
end else begin
l:=k;
break;
end;//if
end;//for
for i:=0 to l do begin
SetWindowRgn(FForm.handle,hs[i],true);
sleep(5);
end;
SetWindowRgn(FForm.handle,CreateRectRgn(0,0,0,0),true);
end;//if
end;

Berikut contoh penggunaannya:
procedure TfmAnim.FormCreate(Sender: TObject);
begin
brAnimasiTivi(Self, True);
end;

Klik disini Klik disini untuk download demonya.

Klik disini untuk download full source code-nya.


sumber : http://delphi-resource.com/?p=130