MEMBUAT PROGRAM SEDERHANADENGAN BORLAND DELPHI 7.0
Oke kali ini saya akan conttoh sederhana bagaimana
cara membuat kotak atau lingkaran berwarna pada delphi 7.0
1.
Buka delphi 7.0
klik pada additonal plih shape (Extctrls).
2. Pada Object
Inspector pilih shape kemudian pilih sesuai dengan yang diinginkan misalnya
bentuk lingkaran, persegi, roundsquare dan lain – lain.
3. Pada tab pilihan
klik pada Standard kemudian pilih kotak button sesuai dengan yang anda inginkan
dalam contoh ini gunakan Button (StdCtrls).
4. Double klik pada
tombol buton1 tapi sebelum itu ubah nama button1 menjadi start pada object
Inspector maka anda masuk pada form untuk menulis program. Isikan baris printah
atau program sebagai berikut :
begin
If button1.Caption=’start’ then
Begin
Shape1.Brush.Color:=Clred ; #warna kotak atau lingkaran berwana merah.
Shape2.Brush.Color:=Clblue ; # warna kotak atau lingkaran berwana biru
Button1.Caption:=’stop’;
end;
else if
button1.Caption=’stop’ then
begin
Shape1.Brush.Color:=ClBtnFace ; #warna kotak atau lingkaran berwana merah.
Shape2.Brush.Color:=ClBtnFace ; # warna kotak atau lingkaran berwana biru
Button1.Caption:=’start’;
end;
end;
Oh
ya saya lupa klo anda mengganti warna mengganti warna tinggal tambahkan sintaks
program berikut dibawah Shape2.Brush.Color:=Clblue yaitu ebagai berikut :
Form1.Color:=Clbackground
; #untuk mengganti warna form menjadi warna hitam
Berikut
dibawah ini adalah hasil running program untuk membuat lingkaran dan kotak
berwarna pada Borlang Delphi 7.0.Dan semoga bermanfaat thanks.
