一个呢很怪的问题了 一定得进来看看了

Question

button:=tbutton.create(application)
button.parent:=pagecontrol.pages[0]这样来写的

Answer 1

每个生成的Button都有不同的Tag也许你可以从这个下手

Answer 2

我用了呢for i:=0 to form1.compentcount-1 do 来做但是呢放在窗口里的
button能找到
放在了pagecontrol.pages里的button呢不能遍历的如何来做呢

Answer 3

从名字着手吧
button:=tbutton.create(application)
button.name:='a'
button.parent:=pagecontrol.pages[0]然后：
    TButton(FindComponent('a'))

Answer 4

除了NIGHTCLOUD大虾的方法另外还有无好的方法呢

Answer 5

var
  I, J: Integer;
begin
  if PageControl1.PageCount <= 1 then Exit;
  J := 0;
  for I := 0 to PageControl1.Pages[1].ControlCount - 1 do
    if PageControl1.Pages[1].Controls[I] is TButton then begin
      Inc(J);
      if J >= 2 then begin
        TButton(PageControl1.Pages[1].Controls[I]).Caption := '测试测试看';
        Break;
      end;
    end;
end;

Answer 6

同意zswang(伴水)(* pascal→c *) (  )

Answer 7

都试了没了用的pagecontrol呢静态的
pages呢动态的
button呢动态的窗口里动态的按钮用了这类的放法能访问,pagecontrol.pages里的BUTTON呢不
能了

Answer 8

你所有的button.parent都是pagecontrol.pages[0]？？

Answer 9

唉，那你要for I := 0 to PageControl1.Pages[0].ControlCount - 1 do
啊。
（吃饭回来了，好热。）便利Pages[0]是0不是1的。

Answer 10

在生成TableSheet时给它命名，生成Button时也命名，然后按名去处理，可能会用到以下函数：FindComponetn.

Answer 11

Sorry: FindComponetn-->FindComponent

Answer 12

pagecontrol
pages
button都在FORM1里在fomr2里找form1里的button用了上述的方法呢都不对了