Arsip: Membuat Tombol saat RunTime


by delphy in Articles more 19 years ago 2611
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.

AI Forward

๐Ÿš€ We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

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