Delphi7:Membuat tombol warna

Kita langsung praktek untuk membuat sebuah aplikasi sederhana yang mempunyai 2 Buah Tombol untuk mengubah warna Form.

Pertama-tama buka sebuah Project baru lalu tambahkan dua buah Button dan satu Label

letaknya di Pallet Standard.

Pertama-tama klik icon Button lalu klik sembarang tempat di Form1, kemudian klik lagi icon Button lalu klik sembarang tempat di Form1, begitu juga dengan Label, sehingga menjadi

seperti ini :

Jika letak Button1 ini tidak seperti yang Anda inginkan, Anda masih bisa menggesergeser

letaknya dengan Click and Drag (Klik Button1 tahan, gerakkan Mouse lalu

lepaskan).

Kemudian kita ganti Nama tombol-tombol tsb :

Klik tombol Button1 sekali ,kemudian ganti Caption dengan TOMBOL 1, pada Object Inspector

Lakukan hal yang sama dengan Button 2 dan Label1:

Button2 ganti dengan TOMBOL 2

Label1 di kosongkan saja

Tampilan akan seperti ini

Sekarang kita tambahkan Script pada aplikasi kita. Double Click TOMBOL 1 maka akan

muncul tampilan Script defaultnya.

Kita bisa melihat ternyata sudah ada kerangka Script yang disediakan Delphi. Jadi kita

tinggal menambahkan Action Script yang kita mau.

Coba kita pahami pelan-pelan arti Script ini.

procedure TForm1.Button1Click(Sender: TObject);

begin

end;

Terjemahan bebasnya seperti ini :

Kalau Button1 yang terletak di Form1 di klik maka

Mulai

Selesai.

Lalu tambahkan Script nya sehingga menjadi seperti ini

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Color:=clred;      (diakhiri dengan tanda titik koma“ : “ )

Label1.Caption:=’Anda menekan Tombol 1,layar menjadi merah’:

                      ( gunakan tanda petik ( ‘ ) antara  ‘ Anda……merah ‘  ,  diakhiri dengan tanda titik koma“ ; “)

end;

Terjemahan bebasnya seperti ini :

Kalau Button1 yang terletak di Form1 di klik maka

Mulai

Form1 warnanya berubah menjadi merah

Label1 akan muncul tulisan = Anda menekan  tombol 1, layer menjadi merah

Selesai.

Selanjutnya kita double klik Tombol 2

Lalu kita isi seperti script di bawah ini

Saat Anda menuliskan Script tadi, pasti muncul Menu Pop up yang tiba-tiba muncul

ketika diketik titik seperti di bawah ini.

Itu adalah kemudahan berikutnya dimana Anda dibantu mempercepat atau pun

mengingatkan pilihan Script yang bisa Anda pilih. Ketika Anda ketik “C” maka akan

ditampilkan pilihan yang dimulai dari huruf “C”.

Bagi yang biasa menggunakan Visual Basic, tanda yang digunakan adalah “=”. Perlu

diingat, di Delphi kita menggunakan “:=”.

Untuk mengetahui daftar warna-warna yang kita gunakan seperti “clred”, Anda bisa

menuju ke Object Inspector dari Form1 di properties color. Di situ kita bisa melihat ada

banyak warna yang disediakan seperti clpurple, clteal, clsilver, dst.

Buka Object Inspector Form1 dengan cara memilih Combo Box dari Object Inspector

seperti di bawah ini.

Lalu cari Color di bagian properties. Klik tanda panah sehingga muncul Menu Combo Box.

Sekarang kita coba menjalankan aplikasi kita. Tekan F9.

Tekan TOMBOL1. Apa yang terjadi ???

Form1 berubah warna menjadi merah.

Oiya untuk mempertebal tulisan pada labe1 anda pilih label1 pada Object Inspector lalu pilih font

Klik tombol titik-titik disebelah kanan Font lalu pilih ukuran dan style yang Anda sukai

Tekan OK kemudian tekan F9

Pilih TOMBOL 1

Mudahkan...........!

Selamat mencoba...........!