Membuat Tombol TButton Lewat Pemrograman

Class TButton ada di unit StdCtrls, sehingga pastikan sebelum memakai class TButton, Anda sudah menuliskan StdCtrls di bagian Unit, yang terletak paling atas di file ekstensi pas yang bersangkutan.

Unit
  ......StdCtrls;

Pada contoh di artikel ini, saya membuat sebuah tombol class TButton dengan nama btnShow. Saya akan meletakkan pembuatan button pada OnCreate milik Form, sehingga saat form tersebut ditampilkan, pengguna akan langsung melihatnya.

procedure TForm1.FormCreate(Sender: TObject);
var
    btnShow : TButton;
begin

   btnShow := TButton.Create(Self);
   with btnShow do
   begin
      Parent := self;
      Top := 10;
      Left := 10;
      Height := 40;
      Width := 100;

      Caption := 'Jalankan';
   end;
end;

Suatu hal yang harus kita ingat, kita membuat obyek TButton diatas secara manual, sehingga jangan lupa untuk mengatur Parent. Jika kita lupa, maka tombol btnShow yang kita buat tidak akan muncul di form. Self adalah variabel di Delphi yang mengacu pada class default. Dalam pemrograman ini, Form adalah kontainer satu-satunya, sehingga kita perlu memasangkan Parent milik TButton hanya pada self. Andai Anda mempunyai sebuah panel, dan meletakkan tombol pada panel tersebut, maka Anda harus mengumpankan Parent ke panel tersebut.

Left adalah property jarak tombol dari kiri parent. Karena parent disini adalah Form itu sendiri, maka Left adalah relatif terhadap Form. Begitu juga dengan property Height (tinggi tombol), Top (jarak dari atas), serta Widht (lebar tombol)

Langkah kedua adalah memberikan aksi apabila pengguna menekan tombol. Disini, saya akan memberikan skenario, apabila tombol ditekan, maka akan menampilkan kotak dialog bertuliskan "Hallo Saya Delphi"

Deklarasikan procedure OnClickBtnSHow di bagian private

  private
     procedure OnClickBtnShow(Sender: TObject);


Buat implementasi OnClickBtnShow di bawah tulisan implementation

implementation

{$R *.dfm}
 

procedure TForm1.OnClickBtnSHow(Sender: TObject);
begin
   ShowMessage('Hallo Saya Delphi');
end;

Kemudian perbaiki program di OnCreate milik form. Isi property OnClik milik form di OnCreate dengan nama prosedur OnClick yang sudah kita buat

OnClick := OnClickBtnShow;

Sehingga program di OnCreate menjadi seperti ini:

procedure TForm1.FormCreate(Sender: TObject);
var
  btnShow : TButton;
begin
   btnShow := TButton.Create(Self);
   with btnShow do
   begin
      Parent := self;
      Top := 10;
      Left := 10;
      Height := 40;
      Width := 100;
      Caption := 'Jalankan';
      OnClick := OnClickBtnShow;
   end;
end;


Sekarang compile program untuk melihat aksinya.

Membuat Tombol TButton Lewat Pemrograman Rating: 4.5 Diposkan Oleh: Good Dreamer

0 comments:

Posting Komentar

Diberdayakan oleh Blogger.