Membuat Efek Warna pada Caption BitBtn

Haro sobat delphier gimana kabarnya??? hari ini saya mau share listing lagi buat bikin efek warna pada caption bitbtn, disini saya akan membuat caption pada bitbtn berubah warna saat dilewati kursor sehingga tampilan bitbtn pada form anda akan semakin cantik dan tidak membosankan ketika dijalankan.

Form Efek Warna Pada Caption BitBtn

Okay langsung saja kita beralih ke langkah - langkah pembuatannya sebagai berikut:

1. Siapkanlah sebuah form, disini warna yang saya gunakan adalah merah, kuning, hijau dan biru jadi siapkan pula empat buah bitbtn yang akan kita rubah warnanya kira - kira ilustrasinya seperti gambar diatas.
2. Klik komponen bitbtn yang ada di form lalu beralih ke object inspector, disana anda akan melihat dua tab yaitu properties dan event, lalu kliklah tab event, lalu double klik OnMouseMove
3. Setelah itu maka anda akan masuk ke unit dan mulailah ketik listing berikut ini :

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

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

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

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

Agar caption pada bitbtn warnanya berubah menjadi hitam lagi setelah dilewati oleh kursor maka ketik lagi listing berikut ini pada OnMouseMove pada 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;

Setelah itu coba run program anda jika berhasil maka bitbtn yang dilewati oleh kursor warnanya akan berubah sesuai dengan listing yang dibuat... sekian dulu sharing listing dari saya jika ada kekurangan saya mohon kritik dan saran yang membangun untuk pengembangan program yang lebih baik... Saya ucapkan Sangkyu untuk kunjungan temen - temen... see you next post eaaaa......