Animasi Form Horizontal Delphi #159

andrypein.net : sama seperti kemarin, tentang meng-animasikan form lagi, sekarang bagian animasi kemunculan form secara horizontal dari kiri ke kanan, bisa dilihat dari gambar gif dibawah ini :

Yang kita butuhkan hanya dua buah form, form pertama sebagai pemanggil form yang dianimasikan, dan form kedua sebagai tumbal.

Untuk form kedua bisa dipasang apa aja bebas terserah mau itu label mau itu gambar bebas lah ya.

Lalu pada kode nya tinggal seperti ini :

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

Untuk button close/exit.

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

Silahken donlod mini apps animasi form horizontal delphi nya disini gan.

Download

*AFK