回 帖 发 新 帖 刷新版面

主题:动态生成控,然后获取他的一些属性内容

我在TabSheet上自动生成一个Tpanel,然后又在Tpanel上自动生成一些 TCheckBox,
现在我用下面代码得到Tpanel 的一些信息.但是我用同样的方法得不到 TCheckBox的信息,请教各位大侠...
   得到 Tpanel 属性的代码:
  while i <= TabSheet1.controlCount - 1 do 
  begin
    if TabSheet1.controls[i] is Tpanel then
    begin
       ss := TabSheet1.controls[i].Name;   \\得到Name
       sss := TabSheet1.controls[i].Caption;  \\得到 Caption
    end;
  end;
  现在我想的就是能否用相同的方法得到 TCheckBox 的属性.注意TCheckBox 自动生
  成的时候 parent 是Tpanel.
谢谢...

回复列表 (共1个回复)

沙发

for i := 0 to panel1.ControlCount - 1 do
  begin
    if panel1.Controls[i] is Tcheckbox then
    begin
       ss := Panel1.controls[i].Name;   \\得到Name
       sss := (panel1.Controls[i] as Tcheckbox).Caption;  \\得到 Caption
    end;
  end;

我来回复

您尚未登录,请登录后再回复。点此登录或注册