| Author |
Message |
reza_elka |
| Location: |
|
Post subject: Menambah object baru saat aplikasi berjalan
 Posted: 18/Sep/2011 17:56
|
|
onIntermediate
Joined: 12-Jun-2008
Posts: 46
Status: Offline
|
|
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 |
|
|
| |
|
|
|
 |
|
mas_kofa |
| Location: New York Arto |
|
|
Post subject:
Posted: 18/Sep/2011 21:06
|
|
onElite
Joined: 18-Mar-2006
Posts: 1753
Location: New York Arto
|
|
create komponen;
code : pascal 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;
code : pascal begin FindComponent('panel1').Free; FindComponent('panel2').Free; FindComponent('panel3').Free; FindComponent('panel4').Free; end;
|
_________________
Pay Per Day | Pesbuk
Me isn't mine
Aku Ini adalah satu
Cerdik seperti ular, Tulus seperti merpati
|
| |
|
|
|
|
|
unggulresearch |
| Location: |
|
|
Post subject:
Posted: 19/Sep/2011 14:38
|
|
onNovice
Joined: 02-May-2011
Posts: 8
Status: Offline
|
|
| maaf, q mw ngobrol2 dgn mas kofa, ada urusan bisnis...btw bs ta no hp atau contact yang bs saya hubungi? |
|
|
| |
|
|
|
|
|
|
|
Post subject:
Posted: 19/Sep/2011 14:41
|
|
onMage
Joined: 06-Feb-2006
Posts: 2401
|
|
|
unggulresearch wrote:
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  |
_________________
Dude, if you don't understand the basics and just want to get someone else write the code for you, it means you really shouldn't study computer science. Find a different field.
 http://delphiexpert.wordpress.com
|
| |
|
|
|
|
|
unggulresearch |
| Location: |
|
|
Post subject:
Posted: 19/Sep/2011 14:53
|
|
onNovice
Joined: 02-May-2011
Posts: 8
Status: Offline
|
|
| 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?? |
|
|
| |
|
|
|
|
|
unggulresearch |
| Location: |
|
|
Post subject:
Posted: 19/Sep/2011 14:55
|
|
onNovice
Joined: 02-May-2011
Posts: 8
Status: Offline
|
|
|
DelphiExpert wrote:
unggulresearch wrote:
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? |
|
|
| |
|
|
|
|
|
MrLee |
| Location: MUSI River Town |
|
|
Post subject:
Posted: 19/Sep/2011 20:36
|
|
onUber-Skilled
Joined: 18-Jul-2007
Posts: 299
Location: MUSI River Town
|
|
|
unggulresearch wrote:
DelphiExpert wrote:
unggulresearch wrote:
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?
cek link signiture nya, pasti ada d sana tuh mas kofa |
_________________
Epson TMU Komponen D7
Epson TMU Komponen BDS2007
|
| |
|
|
|
|
|
reza_elka |
| Location: |
|
|
Post subject:
Posted: 19/Sep/2011 21:35
|
|
onIntermediate
Joined: 12-Jun-2008
Posts: 46
Status: Offline
|
|
Terima kasih mas kofa atas pencerahannya...
untuk membuat panel baru sedikit saya ubah mjd :
code : pascal 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 :
code : pascal repeat panel1.Controls[panel1.ControlCount-1].Destroy; until panel1.ControlCount-1 < jumlahkontrol;
|
|
|
| |
|
|
|
|
|
mas_kofa |
| Location: New York Arto |
|
|
Post subject:
Posted: 19/Sep/2011 23:25
|
|
onElite
Joined: 18-Mar-2006
Posts: 1753
Location: New York Arto
|
|
|
|
|
|
|
madi |
| Location: |
|
|
Post subject:
Posted: 21/Sep/2011 16:06
|
|
onProfessional
Joined: 30-Dec-2005
Posts: 527
Status: Offline
|
|
|
unggulresearch wrote:
DelphiExpert wrote:
unggulresearch wrote:
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?
mau..mau..mau feenya  |
_________________
"MAN BEHIND THE GUN"
Hidup ini sudah terlalu banyak masalah, Tambah satu masalah tidak jadi masalah.
Hidup ini simple, jgn dijadikan complex.
|
| |
|
|
|
|
|
|
