Adakalanya program yang kita buat melakukan operasi yang membutuhkan penambahan komponen saat Runtime, gimana maksud nya??

gini ,, biasanya kita menambahkan/meletakan komponen saat posisi design time atau waktu merancang menggunakan IDE delphi. nah,, kali ini saya share gimana cara nambahin komponen waktu Runtime atau saat program di jalan kan..

hemmm.. berhubung udah ngantuk dan lemes,, jadi saya ngasi contoh yg sederhana saja ,, yaitu menambah komponen TButton saat runtime.

secara garis besar,, Property yang perlu di perhatikan ketika menciptakan objek visual secara umum yaitu :

0. Parent, parent yg di maksud disini adalah component visual yang bersifat container yang nantinya sebagai tempat berdiri dari component yang akan di ciptakan.

1. Tinggi (Height)

2. Panjang (Width)

3. Batas atas terhadap Parent (Top)

4. Batas kiri terhadap Parent (Left)

property lain, seperti Caption, Hint, Align tinggal menyesuaikan kebutuhan saja.

berikut kode nya

procedure TForm1.pCreateButton();

var vButton : TButton;

begin

vButton := TButton.Create(Form1); //form1 disini adalah owner dari TButton

vButton.Parent := Form1; // tempat berdiri dari TButton

vButton.Width := 100;

vButton.Height := 50;

vButton.Top := 50;

vButton.Left := 50;

end;

procedure TForm1.FormClick(Sender: TObject);
begin
pCreateButton;
end;

maka, ketika form1 di klik komponen TButton tercipta, berikut SS nya