Utak Atik Komponen Button
Komponen Button adalah komponen yang secara default memilik sifat kejadian OnClick, artinya daftar program yang disisipkan pada komponen Button HANYA akan dieksekusi/dijalankan ketika komponen tersebut di klik,jadi bila 'button' tidak di klik maka perintah yg kita sisipkan tidak akan di jalankan.
Komponen Button adalah komponen yang secara default memilik sifat kejadian OnClick, artinya daftar program yang disisipkan pada komponen Button HANYA akan dieksekusi/dijalankan ketika komponen tersebut di klik,jadi bila 'button' tidak di klik maka perintah yg kita sisipkan tidak akan di jalankan.
Rencana Awal :
kita akan membuat 2 tombol, yang jika di tekan tombol no1 maka tombol no1 akan hilang dan muncul tombol no2 dengan tulisan exit, dan jika tombol no2 di klik maka akan terjadi sebaliknya (tombol2 hilang lalu muncul tombol1)..!!
Untuk lebih jelasnya temen2 coba aja langsung dengan mengikuti langkah2 berikut :
1. Buka program delphi kalian terus langsung aja letakkan komponen BtBtn1 dan BtBtn2 pada komponen Form1, seperti berikut ini
2. klik 2x pada bitbtn1 (tombol no1) dan ketikkan perintah berikut :
procedure TForm1.Button1Click(Sender: TObject);
begin
bitbtn1.Visible:= false;
bitbtn2.Visible:= true;
end;
3. lalu klik 2x pada bitbtn2 (tombol no2) dan ketikkan perintah berikut :
procedure TForm1.Button1Click(Sender: TObject);
begin
bitbtn1.Visible:= true;
bitbtn2.Visible:= false;
end;
4. coba jalankan program kalian (tekan aja F9 biar cepet), gimana gampang kan?!?!?
Sedikit penjelasan !!!
belajar kali ini kita main-main menggunakan Properties dari bitbutton yang berupa Visible, kalian bisa melihat opsi ini ada di bagian Object Inspector dari BitButton/Button....
teks yang berwarna biru adalah nama komponen,
teks yang berwarna pink adalah properties dari komponen,
teks yang berwarna merah adalah isi data dari properties (dalam hal ini karena visible berisi data boolean/pernyataan true/false)
sekian dulu tutorial dari aku, semoga bermanfaat !!!
by Kang Abee