不能动态创建TQRTabel(41分)

zikao419 · 2002-12-01

for j:=1 to frmpandianbiao.ADOQuery2.RecordCount do
begin
TQRLabel.Create(self).Name:='myqlabel'+inttostr(j); //调试的时候提示没有定义
with Tqrlabel(findcomponent('myqlabel'+inttostr(j))) do
begin
parent:=ColumnHeaderBand1;
left:=170+(i-1)*20;
top:=5;
caption:=ADOQuery2.FieldList.Names[j];
//Tqrlabel(findcomponent('myqlabel'+inttostr(i))).
end;
end;

快帮帮我吧，小弟不胜感激，只有这么一点分了

我立天地 · 2002-12-01

提示说谁没有定义？

happyboyjia · 2002-12-01

兄弟，你还是先var 一下，
在QRLabel:=TQRLabel.Create(self);一下吧

qianwt · 2002-12-02

肯定没有，你还没有加入，怎么能够找到呢

for j:=1 to frmpandianbiao.ADOQuery2.RecordCount do
begin
with TQRLabel.Create(self) do
begin
Name:='myqlabel'+inttostr(j);
parent:=ColumnHeaderBand1;
left:=170+(i-1)*20;
top:=5;
caption:=ADOQuery2.FieldList.Names[j];
//Tqrlabel(findcomponent('myqlabel'+inttostr(i))).
end;
end;

wm1010 · 2002-12-02

是呀, 先Create!

zikao419 · 2002-12-02

程序提示没有定义TQRLabel可是我八他换成Tedit则没有问题，小弟百思不得其解

苦中求乐 · 2002-12-02

qianwt · 2002-12-02

to zikao419
换成Tedit也不可以，你在没有加之前，怎么能够找到呢

zikao419 · 2002-12-04

to qianwt
我在换成Tedit后，则可以顺利执行我得程序，不知为什么？

qianwt · 2002-12-04

但是你创建的EDIT显示出来了吗

我立天地 · 2002-12-04

看你的情况好像是少uses了一个单元的症状，可惜我这机器没装delphi，不能帮你看一看是少了
哪个单元。

我立天地 · 2002-12-09

zikao419，好像你少uses 了Qrctrls,和ExtCtrls单元，是不是？

不能动态创建TQRTabel(41分)

zikao419

Unregistered / Unconfirmed

我立天地

Unregistered / Unconfirmed

happyboyjia

Unregistered / Unconfirmed

qianwt

Unregistered / Unconfirmed

wm1010

Unregistered / Unconfirmed

zikao419

Unregistered / Unconfirmed

苦中求乐

Unregistered / Unconfirmed

qianwt

Unregistered / Unconfirmed

zikao419

Unregistered / Unconfirmed

qianwt

Unregistered / Unconfirmed

我立天地

Unregistered / Unconfirmed

我立天地

Unregistered / Unconfirmed

Similar threads