如何知道panel下面放有什么控件，以及控件的名字(20分)

D

discovered

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-12-27

• #1

如何知道panel下面放有什么控件，以及控件的名字

 

E

easykoala

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-12-27

• #2

panel.components ....

 

D

discovered

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-12-27

• #3

能具体点么

 

S

steven7581

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-12-27

• #4

for i:=0 to panel.components.count-1 do
begin
panel.components.classname.....
end;

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-12-27

• #5

...
//说明：aPanel为需要感知的TPanel类实例；strlstNames为aPanel上的控件名称；strlstClasses为aPanel上的控件类名
procedure GetComponents(const aPanel: TPanel; var strlstNames: TStringList; var strlstClasses: TStringlist);
var
I: Integer;
begin
strlstClasses.Clear;
strlstNames.Clear;
with aPanel do
begin
for I := 0 to Components.Count - 1 do
begin
strlstClasses.Add(Components.ClassName);
strlstNames.Add(Components.Name);
end;
end;
end;
...

 

A

anyway

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-12-27

• #6

先找到它的父窗口，然后遍历父窗口的子窗口

 

小

小陵

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-12-27

• #7

for i:=0 to panel1.ControlCount-1 do
begin
memo1.Lines.Add( panel1.Controls.classname);
memo1.Lines.Add(panel1.Controls.Name);
end;