Arsip: Menambah object baru saat aplikasi berjalan

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

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;

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?

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 :)

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??

more 11 years ago
unggulresearch
@DelphiExpert:brgx mas delphiexpert mw, q ada side job mas..lumayan fee nya ?? atoo q minta tlg carane bt hub mas kofa?@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 :)

more 11 years ago
MrLee
@unggulresearch:cek link signiture nya, pasti ada d sana tuh mas kofa@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?

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;

more 11 years ago
madi
@unggulresearch:mau..mau..mau feenya :lol:@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?
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- vista
by marvel in Tip n Trik Pemrograman more 15 years ago - hal:menanam database ke dalam file exe?
by Zulkarnain in Hal umum tentang Pascal Indonesia more 15 years ago - laporan dengan template .html...??
by imunk in Reporting more 15 years ago - [HELP] ShockwaveFlash
by agis in Hal umum tentang Pascal Indonesia more 10 years ago - help..... USB to SERIAL mengunakan ic FT232 BL :((
by tsalits in Network, Files, I/O & System more 11 years ago - Membuka Project di komputer lain
by bad2001 in Tip n Trik Pemrograman more 16 years ago - Pemula Mohon Bantuan
by afry in Tip n Trik Pemrograman more 13 years ago - Buat Program untuk Koneksi & Proses hanya pake ZEOS
by onsir in MySQL more 15 years ago - perpustakaan
by wandy in Hal umum tentang Pascal Indonesia more 16 years ago - Error RLINK32
by daeng in Multimedia & Graphic Enhancement more 11 years ago