Menambahkan Komponen Ke Form Saat Program Berjalan (Run Time)

Siapa Bilang Generate Komponen Ke Form Pada Saat Program Berjalan / Run Time itu tidak bisa. Jika anda adalah salah seorang yang berkata demikian maka saya yakin anda tidak pernah mencobanya atau mungkin anda tidak tahu caranya. jika demikian mari kita coba dengan cara yang pernah saya coba.

Menambahkan Komponen Ke Form Anda Pada Saat Program dijalankan alias Run Time. Hemmm.. Sekilas akan terdengar sulit bahkan bisa dikatakan agak sedikit berlebihan meskipun pada kenyataannya hal itu bisa kita lakukan. hehe 

Okedeh, Biar gak banyak basa basi, Silahkan Buka Delphi anda dan tambahkan sebuah Button didalam form anda dan ganti captionnya terserah anda. Button ini akan menggenerate beberapa komponen edit dan button setelah di klik. sudah faham maksud saya ? Jika iya. Klik dua kali Button yang telah anda tambahkan tadi kemudian letakan kode berikut

var
  B: TButton;
  E : TEdit;
  i: Integer;
begin
  for i := 0 to 9 do
  begin
    B := TButton.Create(Self);
    E := TEdit.Create(self);
    B.Caption := Format('Button %d', [i]);
    E.Parent := Self;
    B.Parent := Self;
    E.Height := 33;
    B.Height := 23;
    B.Width := 100;
    E.Left := 130;
    B.Left := 10;
    E.Top := 10 + i * 20;
    B.Top := 10 + i * 25;
  end;
end;

Coba Jalankan Program anda. kemudian Klik Buttonya. Kalau saya hasilnya seperti berikut.