Efek Menarik Pada Tampilan Form Saat Run Time

29 01 2013

delphiTampilan 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!


Aksi

Information

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: