var
i: Integer;
comp: Tcomponent;
parentclass: TClass;
for i := 0 to Form1.ComponentCount - 1 do
begin
Comp := Form1.Components[i];
//可用的方法如下:
ShowMessage(Comp.ClassName);
ShowMessage(Comp.Name);
ParentClass := Comp.ClassParent;
while not(ParentClass is TClass) do
begin
ShowMessage(ParentClass.Classname);
ParentClass := ParentClass.ClassParent;
end;
if Comp is TWinControl then
ShowMessage(TWinControl(Comp).Handle);
...
end;