Menggulung Form

23 05 2011

Tip menggulung form berikut ini dapat Anda gunakan pada aplikasi yang Anda buat.

Langkah pembuatannya adalah sebagai berikut :

    1. Buat aplikasi baru dengan cara File -> New -> Application.
    2. Tambahkan satu buah component TButton pada form yang terdapat pada component pallete standard dan component TTimer yang terdapat pada component pallete system. Tampilannya dapat Anda lihat seperti gambar 1 dibawah ini :Menggulung Form
    3. Setelah Anda selesai mendesain form, sekarang ketik listing program dibawah ini pada kejadian OnCreatemilik Form.
      procedure TForm1.FormCreate(Sender: TObject);
      begin
      Button1.Caption:='Gulung Form';
      Timer1.Enabled:=False;
      Timer1.Interval:=100;
      end;

      Kemudian ketik listing program berikut pada kejadian OnClickmilik Button1 :

      procedure TForm1.Button1Click(Sender: TObject);
      begin
      Timer1.Enabled:=True;
      end;

      Selanjutnya ketik listing program berikut pada kejadian OnTimer milik Timer1 :

      procedure TForm1.Timer1Timer(Sender: TObject);
      begin
      if Form1.Height>1 then
        Form1.Height:=Form1.Height-1;
      end;

Setelah Anda selesai mengetik listing program tersebut, jalankan program Anda dengan menekan tombol F9 dan lihat hasilnya.

Catatan :

  • Kecepatan menggulung form dipengaruhi oleh interval milik Timer1. Jadi jika Anda ingin menaikan kecepatan menggulung form Anda bisa menurunkan nilai 100 pada code :
    Timer1.Interval:=100;

    Sebaliknya jika Anda ingin menurunkan kecepatan menggulung form, Anda bisa menaikkan nilai 100 pada code tersebut


Aksi

Information

One response

4 01 2013
Zulkifli Rahman

terima kasih infonya

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: