Membuat object Runtime pada Delphi

Berikut adalah code untuk membuat sebuah object pada borland delphi ketika runtime

dikondisikan seperti berikut :

1. buatlah satu aplikasi baru dimana terdapat satu form sebut saja form1

2. buatlah satu button yang diletakan diatas form1 dengan nama button1

3. kemudian untuk contoh kita akan membuat tombol baru lengkap dengan event didalamnya

4. sebelumnya kita buat terlebih dahulu procedure untuk mengisi event dari object
yang akan kita buat seperti berikut ini.

procedure TForm1.ClickShowMessage(Sender: TObject);
begin
  ShowMessage('Hello World !');
end;

5. ketikan coding berikut pada event onclick dari button1

procedure TForm1.Button1Click(Sender: TObject);
var
  button: TButton;
begin
  button := TButton.Create(Self);
  with button do
  begin
    Top := Button1.Top;
    Width := Button1.Width;
    Left := Button1.Left+Width;
    Caption := 'Button '+ IntToStr(Self.ControlCount+1);
    Parent := Self;
    OnClick := ClickShowMessage; //memanggil procedure yang kita buat sebelumnya
  end;
end;

6. silahkan jalankan program anda.


selamat berkreasi..
semoga bermanfaat..