Pemanfaatan Satu Button pada Delphi

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.

ButtonLabel1

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.

ButtonLabel2

ButtonLabel3

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. 🙂

Iklan

, , , , , ,

  1. Tinggalkan komentar

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: