比方我现在想在ppReport的ppDetailBand中动态增加一个ppLabel1或者ppDBText1控件。要求在打印和预览时都出现。并且我还需要指定这个动态创建的控件的相关事件。
怎么实现我在Delphi的Form中如果要动态创一个控件就可以这样写。(我以上的要求的效果在下面的代码中一样。但不是在Delphi的Form显示,而是在ReportBuilder的ppReport的ppDetailBand中显示。)
var i:string;
MData:TLabel
Begin
for i:=1 to 10 do
Begin
MData:=TLABEL.Create(form1);
MData.Name:='MWLdata'+inttostr(i);
MData.Parent:=form1;
MData.Left:=10*i;
MData.Top:=5;
MData.Caption:=inttostr(i);
MData.Transparent:=True;
MData.Show;
End;
End;
怎么实现我在Delphi的Form中如果要动态创一个控件就可以这样写。(我以上的要求的效果在下面的代码中一样。但不是在Delphi的Form显示,而是在ReportBuilder的ppReport的ppDetailBand中显示。)
var i:string;
MData:TLabel
Begin
for i:=1 to 10 do
Begin
MData:=TLABEL.Create(form1);
MData.Name:='MWLdata'+inttostr(i);
MData.Parent:=form1;
MData.Left:=10*i;
MData.Top:=5;
MData.Caption:=inttostr(i);
MData.Transparent:=True;
MData.Show;
End;
End;
解决方案 »
- 如何调用Windows调色盘,并使用它改变背景和字体颜色
- 找到句柄之后为什么用WM_SETTEXT不能改变RICHEDIT的Caption。
- 看过来--->>>___我们说说端口问题吧___<<<---看过来
- 基础类
- 请问非可视化组件能不能拥有Picture属性
- Can't create the form.No MDI Forms are currently active.请问错在哪儿?
- 如果我没有死,我会回来看大家的.
- Delphi中如何实现万能查询?,请大家讨论.
- adotable1.create(nil) 和 adotable1:=TADOTable.create(nil)的区别是什么?
- 怎样更改一个文件夹的属性???
- 有没有做共享软件的朋友?进来交流一下各方面的经验...
- 脱开原开发环境后,为什么不能执行修改操作?
var
mage:TppImage;
begin
mage:=TppImage.Create(self);
mage.Band:=ppreport1.HeaderBand;
mage.Picture.LoadFromFile('D:\tt.jpg');
ppreport1.Print;
end;