Arsip: Membuat Tombol saat RunTime


by delphy in Articles more 15 years ago 1507
beberapa rekan ada yang ingin membuat tombol pada saat runtime,
berikut skrip untuk melakukan proses tersebut.
skrip ini bisa juga diaplikasikan untuk objek/komponen yang lain.
procedure TfDelphiID.tbl_BuatTombolClick(Sender: TObject);
var
liI                               : Integer;
begin
for liI := 1 to 5 do
begin
with TButton.Create( self) do
begin
Top                           := 40 * liI;
Left                          := (fDelphiID.Width - Width) div 2;
Name                          := 'tbl_Tombol' + IntToStr( liI);
Caption                       := 'Tombol ' + IntToStr( liI);
Parent                        := fDelphiID;
onClick                       := tbl_DiClick;
end;
end;
end;
procedure TfDelphiID.tbl_Diclick(Sender: TObject);
begin
ShowMessage( (Sender as TButton ).Caption );
end;


source lengkap bisa didownload dari:
http://delphi-id.com/dpr/Downloads-index-req-viewdownloaddetails-lid-71.pas

selamat mencoba.

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com