Efek Warna Caption Pada BitBtn

31 05 2011

Pada tip kali ini penulis akan mencoba memberi sedikit sentuhan efek warna pada kontrol BitBtn saat dilewati kursor, sehingga tampilan BitBtn Anda akan semakin cantik dan tentunya akan memperindah form Anda. Langkah – langkah pembuatannya adalah sebagai berikut :

  1. Buat Aplikasi baru dengan cara : File -> New -> Application. Selanjutnya pada form, tambahkan 4 buah kontrol BitBtn yang terdapat pada component Pallete Additional. Tampilan form dapat Anda lihat seperti gambar berikut : desain form efek warna caption pada bitbtn
  2. Setelah Anda selesai mendesain form tersebut tambahkan listing program berikut pada event OnCreatemilik form :
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    BitBtn1.Kind:=bkHelp;
    BitBtn2.Kind:=bkAll;
    BitBtn3.Kind:=bkNo;
    BitBtn4.Kind:=bkCancel;
    end;

    Kemudian tambahkan listing program berikut pada event OnMouseMove milik BitBtn1 :

    procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
    begin
    BitBtn1.Font.Color:=clRed;
    end;

    Kemudian tambahkan listing program berikut pada event OnMouseMove milik BitBtn2 :

    procedure TForm1.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
    begin
    BitBtn2.Font.Color:=clYellow;
    end;

    Kemudian tambahkan listing program berikut pada event OnMouseMove milik BitBtn3 :

    procedure TForm1.BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
    begin
    BitBtn3.Font.Color:=clGreen;
    end;

    Kemudian tambahkan listing program berikut pada event OnMouseMove milik BitBtn4 :

    procedure TForm1.BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
    begin
    BitBtn4.Font.Color:=clBlue;
    end;

    Terakhir tambahkan listing program berikut pada event OnMouseMove milik Form :

    procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
    begin
    BitBtn1.Font.Color:=clBlack;
    BitBtn2.Font.Color:=clBlack;
    BitBtn3.Font.Color:=clBlack;
    BitBtn4.Font.Color:=clBlack;
    end;
  3. Sekarang coba Anda jalankan aplikasi tersebut. Pada awal aplikasi dijalankan, terlihat semua caption BitBtn nampak berbeda dengan saat Anda mendesain form, hal ini disebabkan perintah pada event OnCreate milik form untuk menentukan jenis(kind) pada masing – masing BitBtn. Kemudian coba Anda arahkan kursor pada salah satu tombol BitBtn dan lihat perubahan efek warna font yang terjadi.

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: