G goltiger Unregistered / Unconfirmed GUEST, unregistred user! 2009-07-27 #1 我用了Tlabel(findcomponent('label'+inttostr(26+i))).Caption :=inttostr(i)进行循环取数,可是返回为空,在窗体中已有label26,label27,label28等,但没有Label3,label4等,请指教!
我用了Tlabel(findcomponent('label'+inttostr(26+i))).Caption :=inttostr(i)进行循环取数,可是返回为空,在窗体中已有label26,label27,label28等,但没有Label3,label4等,请指教!
D de410 Unregistered / Unconfirmed GUEST, unregistred user! 2009-07-27 #2 我测试了~~没有问题~~procedure TForm1.Button1Click(Sender: TObject);var i : integer;begin for i := 1 to 10 do begin Tlabel(findcomponent('label'+inttostr(26+i))).Caption :=inttostr(i) end;end;
我测试了~~没有问题~~procedure TForm1.Button1Click(Sender: TObject);var i : integer;begin for i := 1 to 10 do begin Tlabel(findcomponent('label'+inttostr(26+i))).Caption :=inttostr(i) end;end;
M muhx Unregistered / Unconfirmed GUEST, unregistred user! 2009-07-27 #3 inttostr(26+i)看到这句了吗你的赋值当然从26开始了
L levi Unregistered / Unconfirmed GUEST, unregistred user! 2009-07-27 #4 你如果用findcomponent的话,那要注意,必须在 Form下找,即用 self.findcomponent 或者 Form1.findcomponent, 如果要在某个容器下找,要用Controls,如 GroupBox1.Controls估计你找不到的原因,是前面有with语句,这样相当于在这个组件下找,当然找不到了。
你如果用findcomponent的话,那要注意,必须在 Form下找,即用 self.findcomponent 或者 Form1.findcomponent, 如果要在某个容器下找,要用Controls,如 GroupBox1.Controls估计你找不到的原因,是前面有with语句,这样相当于在这个组件下找,当然找不到了。
G goltiger Unregistered / Unconfirmed GUEST, unregistred user! 2009-07-27 #5 我是在panel中,可是panel中既有label,又有image,怎样区分它们(panel1.controls)。二者都要编号进行使用。
D de410 Unregistered / Unconfirmed GUEST, unregistred user! 2009-07-27 #6 label1,image1,lable2,image2~~不可以吗?
G goltiger Unregistered / Unconfirmed GUEST, unregistred user! 2009-07-27 #7 谢谢,加上self就解决问题了 self.findcomponent ,因为我的label都在panel中。
J jennykiller Unregistered / Unconfirmed GUEST, unregistred user! 2009-07-27 #8 if (Panel1.Controls[0]) is tlabel then begin TLabel(Panel1.Controls[0]).Caption := '0'; end;