Arsip: Menambah object baru saat aplikasi berjalan

 
user image
more 8 years ago

reza_elka

Para master semua... Saya mau tanya : 1. Bagaimana caranya menambahkan objek pada saat aplikasi bejalan? 2. Dan bagaimana caranya pula untuk menghapus salah satu atau semua dari objek baru tersebut Misalnya, kita ingin menambahkan 4 buah Panel baru pada aplikasi kita, Panel1,panel2,panel3 dan panel4 dan suatu saat kita juga ingin menghapus salah satu atau semua objek yg barusan kita buat Terima Kasih
user image
more 8 years ago

mas_kofa

create komponen;

var
  pan : TPanel;
begin
  pan          := TPanel.Create(self);
  pan.Name := 'Panel1';
  pan          := TPanel.Create(self);
  pan.Name := 'Panel2';
  pan          := TPanel.Create(self);
  pan.Name := 'Panel3';
  pan          := TPanel.Create(self);
  pan.Name := 'Panel4';
end;
meghapus nya;

begin
  FindComponent('panel1').Free;
  FindComponent('panel2').Free;
  FindComponent('panel3').Free;
  FindComponent('panel4').Free;
end;
user image
more 8 years ago

unggulresearch

maaf, q mw ngobrol2 dgn mas kofa, ada urusan bisnis...btw bs ta no hp atau contact yang bs saya hubungi?
user image
more 8 years ago

DelphiExpert

@unggulresearch: maaf, q mw ngobrol2 dgn mas kofa, ada urusan bisnis...btw bs ta no hp atau contact yang bs saya hubungi?
Mungkin lebih cocok kalo lewat PM / japri Gan :)
user image
more 8 years ago

unggulresearch

q ga bisa kirim lewat private message mas?? atau jabri gen.. itu caranya gmn ?? atau mas delphiexpert..q bs calling2 sama km ga?? soalnya q mw ksh job k siapa aja, yg dah master2..lumayan fee nya??
user image
more 8 years ago

unggulresearch

@DelphiExpert:
@unggulresearch: maaf, q mw ngobrol2 dgn mas kofa, ada urusan bisnis...btw bs ta no hp atau contact yang bs saya hubungi?
Mungkin lebih cocok kalo lewat PM / japri Gan :)
brgx mas delphiexpert mw, q ada side job mas..lumayan fee nya ?? atoo q minta tlg carane bt hub mas kofa?
user image
more 8 years ago

MrLee

@unggulresearch:
@DelphiExpert: [quote:7fef41c6fb="unggulresearch"]maaf, q mw ngobrol2 dgn mas kofa, ada urusan bisnis...btw bs ta no hp atau contact yang bs saya hubungi?
Mungkin lebih cocok kalo lewat PM / japri Gan :)[/quote:7fef41c6fb] brgx mas delphiexpert mw, q ada side job mas..lumayan fee nya ?? atoo q minta tlg carane bt hub mas kofa?
cek link signiture nya, pasti ada d sana tuh mas kofa
user image
more 8 years ago

reza_elka

Terima kasih mas kofa atas pencerahannya... untuk membuat panel baru sedikit saya ubah mjd :
PanelBaru := TPanel.create(panel1);
  with PanelBaru do
  begin
    Top    := 2;
    Width  := 60;
    height := 50;
    Left   := lleft;//Width * (panel1.ControlCount);
    Parent := panel1;
    color := clBlack;
    Caption := 'Panel'+ inttostr (panel1.ControlCount);
    name := caption;
    BevelOuter := bvnone;
  end;
karna sebagai controlnya adlh Panel1. dan untuk menghapusnya :
repeat
          panel1.Controls.Destroy;
     until panel1.ControlCount-1 < jumlahkontrol;
user image
more 8 years ago

mas_kofa

yg mo hub aku please at : 0896-5490-xxxx (edited)
user image
more 8 years ago

madi

@unggulresearch:
@DelphiExpert: [quote:2f88631884="unggulresearch"]maaf, q mw ngobrol2 dgn mas kofa, ada urusan bisnis...btw bs ta no hp atau contact yang bs saya hubungi?
Mungkin lebih cocok kalo lewat PM / japri Gan :)[/quote:2f88631884] brgx mas delphiexpert mw, q ada side job mas..lumayan fee nya ?? atoo q minta tlg carane bt hub mas kofa?
mau..mau..mau feenya :lol:
more ...
  • Pages:
  • 1
Share to

Random Topic

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