Minggu, 29 Maret 2009

Animasi Form Lanjutan
Artikel ini merupakan modifikasi/perkembangan dari artikel yang lalu yaitu Animasi form Horizontal dan Vertikal.tentu saja menjadi lebih menarik...
nich langkah-langkahnya:

-Biasa Buka Delphi nya dengan Sebuah Form Kosong
-aturlah sehingga seperti gambar berikut:

-Double Click pada Button lalu ketikan Code berikut:

procedure TForm1.Button1Click(Sender: TObject);
procedure Delay(msec:LongInt);
Var
start,stop:Longint;
begin
start:=GetTickCount;
repeat
stop:=GetTickCount;
Application.ProcessMessages;
until (stop - start)>=msec;
end;
var
lebar,tinggi:integer;
Begin
Lebar:=form1.Width;
tinggi:=form1.Height;
form1.width:=112;
form1.height:=27;
form1.Left:=(screen.Width - form1.Width)div 5;
form1.Top:=(screen.height - form1.height)div 5;
form1.Show;
repeat
if form1.Height+(tinggi div 5)>=tinggi then
form1.Height:=tinggi
else form1.Height:=form1.Height+(tinggi div 100);
if form1.width+(lebar div 5)>=lebar then
form1.Width:=lebar
else form1.width:=form1.width+(lebar div 100);
form1.left:=(screen.Width - form1.Width)div 2;
form1.Top:=(screen.height -form1.height)div 2;
delay(10);
until (form1.width=lebar) and (form1.height=tinggi);
end;

-Yupz!!!lumayan rumit ya???^__^

selamat mencoba moga bermanfaat^__^anda pelajari dan kembangkan lagi ya!!!^__^

1 comments:

Posting Komentar

Katakan Sesuatu