谁能帮助我?

[Linux2001]

现在有一个PageControl,页面为X,每个页面上有一个动态生成的按钮,在窗体上又有一个按钮,当按下窗体上的按钮时,把当前Pagecontrol页面的按钮的caption改成'hello'该怎么写代码

[liang_z]

(☆浪人☆)的方法可行啊！

[hch_d]

关注……

帮你UP 一下……

[ihihonline]

for i := 0 to yourlist.Count - 1 do
begin
if TBUtton(yourlist.items[i]).parent = PageControl.ActivePage then
begin
TButton(yourlist.items[i]).caption := 'hello';
Exit;
end;
end;
可以的,这样就可以强制的让其显示;
不过,你最好用一个能随时得到当前的PageControl.ActivePage
虽然有点浪费

[Linux2001]

那么如果中途某一个page关闭了,不会出现错误吧!我还没有试过,哎,时间真少

[Linux2001]

那么如果中途某一个page关闭了,不会出现错误吧!我还没有试过,哎,时间真少

[scripting]

不需要for循环吧，不能直接的出activepage?

[Linux2001]

谁能详细的讲解一下啊

[Linux2001]

谁能详细的讲解一下啊

[Linux2001]

谁能详细的讲解一下啊

[Linux2001]

VSaber(☆浪人☆)
你能详细的讲解一下吗,我试了一下怎么不行啊

[Linux2001]

VSaber(☆浪人☆)
你能详细的讲解一下吗,我试了一下怎么不行啊

[Linux2001]

VSaber(☆浪人☆)
你能详细的讲解一下吗,我试了一下怎么不行啊

[VSaber]

怎么会不行呢!?

[Linux2001]

VSaber(☆浪人☆)
你给我讲一下如何使用TList来记录我生成的按钮就可以了

[Linux2001]

VSaber(☆浪人☆)
你给我讲一下如何使用TList来记录我生成的按钮就可以了

[Linux2001]

VSaber(☆浪人☆)
你给我讲一下如何使用TList来记录我生成的按钮就可以了

[王集鹄]

procedure TForm1.Button3Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to PageControl1.ActivePage.ControlCount - 1 do
if PageControl1.ActivePage.Controls[I] is TButton then
TButton(PageControl1.ActivePage.Controls[I]).Caption := 'Hello';
end;

[王集鹄]

procedure TForm1.FormCreate(Sender: TObject);
var
vButton: TButton;
begin
YourList := TList.Create;
vButton := TButton.Create(Self);
//.......
YourList.Add(vButton);

vButton := TButton.Create(Self);
//.......
YourList.Add(vButton);

vButton := TButton.Create(Self);
//.......
YourList.Add(vButton);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
YourList.Free;
end;

[王集鹄]

当然我认为没有必要用yourlist: TList;

使用Controls[I]+Tag即可

[Brand1]

var yourList : TList;

begin
yourList := TList.Create(Self);
for I := 0 to PageControl.PageCount-1 do
yourList.Add(TButton.Create(PageControl.Page[i]);
end;