Arsip: How To Create Component On-The-Fly Inside Report Builder?

more 17 years ago
l_christianto
Here's the situation :
I want to make a report that contains barcode components,
But the number of the component depends on the data.
So I want to make the barcode component on-the-fly in the DetailBand
For experiment I just want to create 1 barcode on-the-fly
I already tried this:
MyBarcode := TppBarcode.Create(self);
MyBarcode.Alignment := taLeftJustify;
MyBarcode.Name := 'MyBarCode1';
MyBarcode.UserName := 'BarCode1';
MyBarcode.AutoSize := true;
MyBarcode.Top := 10;
MyBarcode.Left := 10;
MyBarcode.Data := '1234567890';
MyBarcode.PrintHumanReadable := true;
MyBarcode.Visible := True;
MyBarcode.SetParentComponent(ppDetailBand1);
ppMyReport.Print;
And the barcode still didn't appear.
Can somebody help me?
Thank You
Chris.

more 17 years ago
bagussb
nyumbang aja dikit, kalo saya biasa create component pada runtime seperti ini :
with TButton.Create(Form1) do
begin
Name := 'ButtonX';
Parent := Form1;
Top := 10;
Left := 10;
Visible := True;
end;
btw.. emang komponennya kalo pada saat design time bisa muncul di reportnya..
setau saya, tolong di koreksi kalo salah, ga semua komponen bisa dimunculin di report... :mrgreen:
more 17 years ago
l_christianto
Makasih atas reply-nya
Sori kalo pake bahasa Inggris, soalnya rencananya mo posting ke forum luar negeri, tapi waktu aku coba untuk signup ke forumnya susah banget...
Jadi bukan sok-sok an pake bahasa Inggris.
Aku udah nyoba-nyoba lagi ternyata bisa...
Ternyata uda ada di HELP nya Report Builder kok, cuma bacanya kurang teliti aja
Caranya
MyBarcode := TppBarcode.Create(self);
MyBarcode.Alignment := taLeftJustify;
MyBarcode.Name := 'MyBarCode1';
MyBarcode.UserName := 'BarCode1';
MyBarcode.AutoSize := true;
MyBarcode.Top := 10;
MyBarcode.Left := 10;
MyBarcode.Data := '1234567890';
MyBarcode.PrintHumanReadable := true;
MyBarcode.Visible := True;
MyBarcode.Band := ppDetailBand1;
Programnya uda bener tinggal bagaimana add komponen tersebut ke band report nya.
Baris terakhir di atas jawabannya.
MyBarcode.Band := ppDetailBand1;
Semoga membantu juga bagi pemakai Report Builder lain yang ingin membuat komponen secara runtime
Thx,
Christianto
more ...
- Pages:
- 1
reply |
Report Obsolete
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
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Radio Group Find...
by saysansay in Enginering more 19 years ago - Kembali ke form sebelumnya...
by Random in Form Enhancement & Graphical Controls more 17 years ago - [nanya] TMemo ngak bisa nampilin semua karakter
by arik88 in Network, Files, I/O & System more 14 years ago - Koneksi MySQL Server via Internet
by ahmad in Hal umum tentang Pascal Indonesia more 17 years ago - Answering Machine
by snip3r in Enginering more 17 years ago - Access Violation...bikin pusing 100 keliling :-(
by uron in Lain-lain more 13 years ago - Da yang tau g?cara koneksi ke dialogic card (apliaksi IVR)
by fafa in Network, Files, I/O & System more 17 years ago - Yahoo! Messenger
by J4ckR1pp3r in Tip n Trik Pemrograman more 15 years ago - Kopi Darat Delphi Team
by DelphiExpert in OOT more 15 years ago - gimana cara nampilin angka nol didepan
by putukaca in onLinux more 18 years ago