Arsip: Menambah object baru saat aplikasi berjalan

 
user image
more 11 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 11 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 11 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 11 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 11 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 11 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 11 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 11 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 11 years ago

mas_kofa

yg mo hub aku please at : 0896-5490-xxxx (edited)
user image
more 11 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
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com