Flash files displays with dephi 2007

iseng-iseng mau coba-coba untuk membuat animasi dalam form dengan delphi, akhirnya pilihan jatuh pada file flash (swf), oprek sana oprek sini nggak nemu nemu juga komponen(VCL) yang pas, ribet-puyeng tiba-tiba jadi ingat gimana kalau coba import component yang ada diwindows siapa tahu bisa hehehehe, akhirnya coba-coba ternyata berhasil dan ternyata nggak begitu sulit juga hehhehe oke kita lanjutkan lagi deh, tapi maaf lo nggak seberapa lengkap tapi cukup mewakili lah untuk artikel ini

langkah-langkah nya yang pertama kita coba import ActiveX untuk Flash, untuk referensi yang lebih lengkap teman-teman dapat merujuk ke alamat ini adapun activeX yang perlu kita import nanti nya adalah shockwaveflash dan pallete sesuai pilihan teman-teman, sebetulnya ada beberapa VCL yang memang telah disediakan untuk menangani flash ini teman-teman mungkin pernah mendengar yang namanya smartFlash yang dapat di unduh disini (kebetulan nemu link hehehe), tapi untuk kali ini kita coba pakai ActiveX yang memang sudah disediakan ya.

Setelah prosedur import activeX diatas kita kerjakan selanjutnya kita tinggal uji coba jalankan file flash(swf) diform delphi, coba kita buat project kecil kemudian dari form yang sekarang aktif, coba kita geser(drag) komponen tshockwaveflash ke dalam form kemudian lanjutkan dengan mengatur properties sesuai selera, sedangkan untuk menampilkan file flash kita coba dengan pengkodean sederhana, coba kita tambahkan kembali sebuah speedbutton kemudian dalam even onclick silahkan isi dengan kode berikut :

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
      ShockwaveFlash1.Movie:=Application.ExeName+'namafileflash.swf'; // sebagai contoh ya
      ShockwaveFlash1.Play;
end;

Sederhana bukan , mudah-mudahan trik sederhana ini dapat memberikan tambahan referensi teman-teman dan mohon maaf kalau artikel ini masih jauh dari sempurna.