Efek Warna Caption Pada BitBtn

Efek Warna Caption Pada BitBtn

03122016

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 : 
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..