Membuat Animasi Flash Dengan Delphi
Berikanlah perintah AnimateWindow(Handle,1000,AW_VER_POSITIVE);
Salah satu contoh :
Prosedure TForm1.FormCreate(Sender: TObject);
begin
AnimateWindow(Handle,1000,AW_VER_POSITIVE);
end;
end.
Ket :
AW_HOR_POSITIVE = Membuka tampilan awal pada horisontal kesebelah kiri ke kanan
AW_HOR_NEGATIVE = Membuka tampilan awal pada horisontal dari kanan ke kiri
AW_VER_POSITIVE = Membuka tampilan vertikal dari atas ke bawah
AW_VER_NEGATIVE = Membuka tampilan dari bawah ke atas
Selamat Mencoba.