Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Animasi Form pada Delphi (Center Mode) #158

Kambing salto tidak akan bisa melakukan roll depan

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

animasi form pada delphi
demo form

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

Related Articles

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button