Penggunaan satu Button atau Tombol pada Delphi tidak hanya digunakan untuk satu perintah, tapi dapat digunakan untuk dua perintah atau lebih. Disini saya akan menggunakan dua perintah pada Button.
Desain Form seperti gamar di bawah ini. Gunakan satu Button dan satu Label pada tab Standard.
Ubah Caption pada Button menjadi “ON” dan ubah Caption pada Label menjadi “Menunggu Perintah Dari Button”.
Klik 2 kali pada Button lalu tulis kode program berikut ini:
procedure TForm1.Button1Click(Sender: TObject); begin if Button1.Caption = 'ON' then begin Label1.Caption := 'Tombol sekarang ON'; Button1.Caption := 'OFF'; end else if Button1.Caption = 'OFF' then begin Label1.Caption := 'Tombol sekarang OFF'; Button1.Caption := 'ON'; end; end;
Hasilnya setelah di running.
Jadi ketika tombol di klik, Caption pada Label1 akan berubah menjadi “Tombol sekarang ON” dan Caption pada Button1 akan berubah menjadi “ON” begitu sebaliknya. Tidak hanya dapat digunakan pada Label tapi juga dapat digunakan untuk komponen yang lain.
Download source code disini. 🙂