SlowMotion Form Saat Tampil pada Delphi

Gunakan satu Timer (Tab System) dan satu Button (Tab Standard) lalu desain Form seperti gambar dibawah ini:

Form1

Atur Properties pada Form. Ubah AlphaBlend menjadi True dan ubah AlphaBlendValue menjadi “O“. AlphaBlendValue adalah tingkat transparansi Form saat tampil. Ketika di ubah menjadi “O” maka tampilan Form tidak terlihat saat program dijalankan.

Form2

Setelah itu atur Properties Interval pada Timer menjadi 100.

ProgressBar3

Kalau sudah klik 2 kali Timer1 dan masukkan kode program berikut:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.AlphaBlendValue := Form1.AlphaBlendValue + 15;
  if Form1.AlphaBlendValue = 255 then
   Timer1.Enabled := False;
end;

Nilai AlphaBlendValue akan terus bertambah 15 dan ketika nilai AlphaBlendValue 255 maka Timer akan dinonaktifkan (disable). Apabila ingin mengubah nilai yang akan ditambahkan pada AlphaBlendValue, usahakan untuk menyesuaikan nilai yang digunakan untuk menghentikan Timer, kalu nilai tidak sesuai maka Form akan terus mengulang SlowMotion.

Contohnya:

  • Jika ditambah 15, nilai AlphaBlendValue akan dapat mencapai nilai 255, akan tetapi
  • Jika ditambah 10, nilai AlphaBlendValue tidak dapat mencapai nilai 255 sehingga harus di ubah menjadi 250 atau kelipatan 10 itu sendiri.

Lalu masukkan kode program pada Button1 yang berfungsi untuk menutup aplikasi:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Terminate;
end;

Untuk hasilnya bisa dilihat saat program dijalankan.

Download Source Code disini.

Iklan

, , , , , , ,

  1. Tinggalkan komentar

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: