Efek Menarik Pada Tampilan Form Saat Run Time

Efek Menarik Pada Tampilan Form Saat Run Time

03122016

Tampilan form yang kurang spesial pada saat dijalankan (kemunculan aplikasi) membuat para pengguna program Anda merasa tidak betah berlama-lama di depan komputer dan jenuh akan tampilan program yang Anda buat. Untuk itu, penulis mencoba menawarkan beberapa solusi supaya ketika Anda menjalankannya, form tersebut bisa memiliki efek yang spesial pada tampilannya sehingga pengguna program Anda menjadi kagum dan betah.

Penulisan listing-listing program yang tidak terlalu panjang memungkinkan Anda untuk bisa memberikan efek-efek yang menarik pada saat form (aplikasi) dijalankan. Beberapa efek menarik untuk tampilan form tersebut diantaranya adalah sebagai berikut :

• Tampilan form bergerak dari arah samping kiri
• Tampilan form bergerak dari arah samping kanan
• Tampilan form bergerak dari arah atas ke bawah
• Tampilan form bergerak dari arah bawah ke atas

Silahkan Anda memilih dari ke-empat pilihan tersebut sesuai keinginan Anda. Selanjutnya, silahkan Anda mengikuti langkah-langkah pembuatannya dibawah ini.

1. Masuklah ke dalam lingkungan Delphi, kemudian pilihlah event OnShow milik form tersebut.
2. Pindahkan kursor Anda pada jendela Unit dan ketikkan listing programnya berikut ini.

procedure TForm1.FormShow(Sender: TObject);
begin
AnimateWindow(Self.Handle, 999, AW_HOR_POSITIVE or AW_ACTIVATE);
end;

Penjelasan :

• Jika Anda menginginkan tampilan efek form tersebut lebih cepat Anda bisa mengubah nilai 999 (yang dicetak tebal dan digarisbawahi) sesuai kebutuhan
• Jika Anda menginginkan tampilan form bergerak dari arah samping kiri maka kode tersebut tidak perlu Anda ubah.
• Jika Anda menginginkan tampilan form bergerak dari arah samping kanan maka Anda hanya perlu mengubah nilai “AW_HOR_POSITIVE” menjadi “AW_HOR_NEGATIVE”
• Jika Anda menginginkan tampilan form bergerak dari arah atas ke bawah maka Anda hanya perlu mengubah nilai “AW_HOR_POSITIVE” menjadi “AW_VER_POSITIVE”
• Jika Anda menginginkan tampilan form bergerak dari arah bawah ke atas maka Anda hanya perlu mengubah nilai “AW_HOR_POSITIVE” menjadi “AW_VER_NEGATIVE”

Selamat Mencoba!