白
白衣书生
Unregistered / Unconfirmed
GUEST, unregistred user!
在Panel上的组件我可以这样遍历：
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to Panel1.ControlCount-1 do
listbox1.Items.Add(Panel1.Controls.Name);
end;
但是在PageControl中：
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for i:=0 to PageControl1.ControlCount-1 do
listbox1.Items.Add(PageControl1.Controls.Name);
end;
－－－－－得到结果的却是TTabSheet，而不是各个组件(如Edit，Button等)。
另外：我如何能得到当前ActivePage(TabSheet)上的所有组件名字？ 谢谢各位！
（查阅了以前的旧帖，没有结果。拜托各位！）
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to Panel1.ControlCount-1 do
listbox1.Items.Add(Panel1.Controls.Name);
end;
但是在PageControl中：
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for i:=0 to PageControl1.ControlCount-1 do
listbox1.Items.Add(PageControl1.Controls.Name);
end;
－－－－－得到结果的却是TTabSheet，而不是各个组件(如Edit，Button等)。
另外：我如何能得到当前ActivePage(TabSheet)上的所有组件名字？ 谢谢各位！
（查阅了以前的旧帖，没有结果。拜托各位！）
]
]