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.
0 comments:
Posting Komentar