根据条件循环使用以下动态创建TQRDBText的代码procedure TForm1.Button1Click(Sender: TObject);
var
myQRDBText:TQRDBText;
begin
myQRDBText:=TQRDBText.Create(self.QRBand1);
myQRDBText.Parent:=self.QRBand1;
myQRDBText.Left:=0; myQRDBText.Top:=0;
myQRDBText.Width:=70;
myQRDBText.Height:=30;
myQRDBText.caption:='abc';
myQRDBText.dataset:=mydataset;
mydataset.active:=true;
QuickRep1.preview;end;
var
myQRDBText:TQRDBText;
begin
myQRDBText:=TQRDBText.Create(self.QRBand1);
myQRDBText.Parent:=self.QRBand1;
myQRDBText.Left:=0; myQRDBText.Top:=0;
myQRDBText.Width:=70;
myQRDBText.Height:=30;
myQRDBText.caption:='abc';
myQRDBText.dataset:=mydataset;
mydataset.active:=true;
QuickRep1.preview;end;
解决方案 »
- 如何把字符串转为16进制的颜色代码呢?
- WM_DEVICECHANGE消息处理的问题
- 向高手求救:縮放,拖動顯示圖片程序
- 关于popupmenu和treeview结合的问题
- 如何判断系统中安装的是Office 2000、Office XP 还是 Office 2003?
- 请问个屏幕字符获取的问题
- 在VC中调用delphi 写的ActiveForm,如何释放?谢谢
- 文件操作的问题,请各位大虾指点迷经!
- 用delphi写的ping程序,但如何判断ping通或ping不通?
- 用哪个函数或过程可打开新的窗口的同时覆盖掉原来的旧窗口(指在内存中卸去旧窗口,不是用hide过程隐藏)
- adoconnecttion中的login问题
- 有关表单自动增长的问题,求助
除非你自己写打印代码
单还是要更新QUICKREP