Properties tag dalam delphi7

Delphi        : Delphi 7
Database   : –
Koneksi     : –
Komponen : TButton

*note : untuk penggunan komponen yangtidak sama, harap menyesuaikan

Pada kesempatan kali ini saya akan coba ulas cara penggunan sederhana Properties :Tag , untuk apa sih properties ini?? pentingkah?? kita sendiri yang akan menjawabnya, oke kalau menurut pendapat saya pribadi Tag ini berfungsi sebagai identifier sebuah object karena dia unique, tidak bisa di isi tag yang sama dalam satu form.

Oke supaya lebih jelasnya langsung coba saya implemntasikan contoh pada sebuah aplikasi sederhana, saya membuat 1 buah Form dengan 3 buah Button didalamnya  (ga harus button sih ya) tapi kali ini saya mencontohkan button yang mungkin karena saya sendiri sering pakai teknik ini untuk beberapa aplikasi yang saya buat, nah tampilan form kurang lebih seperti ini :

Saya sebut dari kiri ke kanan : Button1, Button2, Button3 , Selanjutnya sorot setiap button tersebut kemudian set Properties : Tag nya dengan urut 1, 2 dan 3 pada masing-masing button, perhatikan gambar :

Setelah mengeset Tag pada masing-masing button, langkah selanjutnya kita bikin uji coba dengan koding sederhana seperti contoh dibawah ini, masukan kedalam Button1 OnClick (Double Klik Pada button), isikan kode berikut ini :

1 2 3 4 5 6 7 8 9 10

procedure Tfutama.btn1Click(Sender: TObject); var s:string; begin s:=(Sender as TButton).Caption;  Case (Sender as TButton).Tag of  1:ShowMessage('Ini Tombol '+s);  2:ShowMessage('Ini Tombol '+s);  3:ShowMessage('Ini Tombol '+s);  end; end;

Kalau melakukan test silahkan run dulu aplikasi, hanya tombol pertama saja yang masih berfungsi, jika sudah langkah selanjutnya adalah sorot Button2 dan Button3 masuk Properties Event, kemudian pada OnClick pilih Button1Click, artinya adalah jika tombol2 dan 3 di tekan maka akan mengarak ke prosedur Tombol1, perhatikan gambar :

Jika melakukan langkah-langkah diatas dengan benar maka, jika aplikasi dieksekusi dan ditekan masing-masing tombol mereka akan mengeksekusi masing-masing perintah berdasrkan case tag yang dibuat pada tombol 1

Contoh sederhana diatas bisa kita implementasikan untuk menyederhanakan kode yang biasanya di buat terpisah-pisah dimasing-masing tombol, dan yang pasti koding jadi rapih dan enak dibaca maupun dikoreksi. diatas digunakan mengeksekusi satubaris perintah saja, kalau mau melakukan beberapa perintah layaknya dalam prosedur masing-masing caranya sebagai berikut :

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure Tfutama.btn1Click(Sender: TObject); var s:string; begin s:=(Sender as TButton).Caption;  Case (Sender as TButton).Tag of  1:begin    //perintah disini...    //perintah disini...    end;  2:ShowMessage('Ini Tombol '+s);  3:ShowMessage('Ini Tombol '+s);  end; end;

Jadi dengan seperti itu akan lebih memudahkan flexibilitas dalam menulis kode, masing-msaing tag bisa kita atur perintahnya, oh iya dan satu hal Tag tidak hanya ada pada Button, jadi untuk implemntasi atau pengembangan lainya silahkan di eksplore..

Semoga tulisan sederhana ini bisa menjadikan manfaat, terimkasih
Di tunggu komentar dan saranya…

Salam Pascal….