Memberikan animasi transparan pada saat menjalankan aplikasi Delphi

Ini merupakan trik yang sederhana…

Trik ini dapat digunakan untuk mempercantik tampilan aplikasi anda, namun walaupun sederhana animasi ini dapat menarik perhatian dari orang yang melihat aplikasi yang anda bangun.

Aplikasi ini berfungsi untuk memunculkan form aplikasi anda secara perlahan dan dengan tampilan transparan, tidak seperti tampilan default dari Delphi yang menampilkan form aplikasi anda secara langsung.

Berikut adalah contoh program menggunakan fasilitas tersebut :

Form1.Hide;

AnimateWindow(Form1.Handle, 5000, AW_BLEND);

Form1.Show;

Kode di atas dapat anda masukkan ke dalam procedure ketika anda memunculkan form (FormShow)

Ket :

5000 = merupakan lamanya waktu saat program dijalankan hingga form tersebut terlihat menjadi utuh (lamanya waktu animasi transparan), 5000 berarti 5 detik.

AW_BLEND = merupakan jenis dari animasi transparan, dengan fungsi AW_BLEND animasi langsung memunculkan seluruh form. Anda juga dapat mencoba dengan AW_HOR_POSTIVE, AW_HOR_NEGATIVE, AW_VER_POSITIVE, AW_VER_NEGATIVE.

Terima kasih udah dikasih kesempatan nulis di blog ini…

Semoga bermanfaat… :)