Animasi Form pada Delphi (Center Mode) #158

andrypein.net : Tutor yang sekarang bagaimana menganimasikan form dengan kemunculan dari tengah, pripiu penampakan skrinsut bisa diliat pada gambar dibawah :

lanjuuut . . . .

Kita akan memakai dua buah form, form pertama hanya untuk memanggil form yang dianimasikan, dan cukup dua buah button saja.

Lalu form kedua hanya form kosong saja,diisi gambar atau apa sajah tulisan lah bebas sakahayang.

Kita mulai kodingnya,cukup hanya pada form pertama yang berisikan button itu saja, kode nya seperti ini :

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  form2.Hide;
  animatewindow(form2.Handle,2000,AW_CENTER);
  form2.Show;
end;

2000 adalah detikannya yang berati 2 detik,dan AW_CENTER adalah jenis animasinya yang berati form muncul aga tengah center gitu laah.

Terakhir button exit seperti biasa gan.

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  application.Terminate;
end;

 

Animasi form pada delphi dengan center mode bisa didonlod ai aing gan.

Download

*AFK