Membuat ON-OFF Satu Tombol Pada Delphi

Bagi yang baru memulai belajar delphi seperti saya yang ingin membuat tombol ON-OFF dengan menggunakan satu tombol mari kita pelajari bersama-sama.Yang biasa menggunakan tombol button untuk membuat ON dan OFF dengan dua tombol button coba sekarang buat dengan hanya satu tombol button biar bisa menghemat atau memperkecil tampilan form yang akan kita buat,dengan memperkecil form kita bisa merasakan penggunaan memori akan sangat ringan pada saat projek yang kita buat di eksekusi.

On-Off Dengan Satu Tombol

Langkah Pembuatan

Untuk memulainya pertama kita buka program delphinya kemudian kita coba tambahkan pada form yang baru sebagai contoh kita tambahkan satu buah Button dan satu Label,kemudian kita atur ukuran formnya  menjadi kecil,buat ukurannya sesuai ukuran yang telah ditambahkan kedua komponen tadi yaitu tombol Button dan Label,kira-kira jadi seperti gambar ini :

Menambahkan Button dan Label

Setting Properti Button dan Label

Setelah kita coba melakukan perubahan ukuran form selanjutnya kita coba untuk merubah properti Button dan properti Label.Pada layar sebelah kiri ada yang namanya Object Inspector ini fungsinya untuk merubah properti suatu objek atau komponen yang akan kita gunakan.Disini pada contoh form telah kita tambahkan komponen Button dan Label,pertama kita akan coba untuk merubah properti button yang mana pada saat pertama ditambahkan ke form maka button tersebut mempunyai properti caption atau  bertuliskan Button1 apabila ingin diganti menjadi ON coba klik satu kali Button pada form kemudian pada object inspector bagian Caption coba ganti dengan ON.
Yang kedua coba ganti komponen Label captionnya di delet atau dihilangkan caranya sama seperti tadi.
Sekarang pada komponen button klik 2x untuk membuat procedurnya,Sesuai dengan tema kali ini yaitu membuat ON-OFF dengan satu tombol maka coba tambahkan pada procedure diantara begin dan end; kode dibawah ini

if Button1.Caption = 'ON' then begin
    Label1.Caption := 'Hello Mamen';
    Button1.Caption := 'OFF';
    end
      else begin
        Label1.Caption := '';
        Button1.Caption := 'ON';
        end;

Jadinya akan tampak seperti ini

Procedure untuk Button

Setelah itu coba di Run atau tekan F9,dan inilah gambarnya setelah di run

Penampakan setelah di Run

Dan yang ini gambar dimana ditambahkan skin biar kelihatan cantik,apabila ingin tampilannya cantik seperti tampilan gambar dibawah ini coba pelajari Cara install Alpha Skin atau Alpha Control dan cara menggunakannya. 

Memakai Alpha Skin

Demikian tutorial untuk tema kali ini semoga bermanfaat.

Happy coding dan salam Blogger.