procedure ButtonClick(Sender: TObject);
procedure pr_Controls(const Parent: TWinControl) ;
var
i: Integer;
begin
for i := 0 to Parent.ControlCount - 1 do
begin
if Parent.Controls[i] is TWinControl then
begin
if Parent.Controls[i] is TLabel then
begin
...
...
end;
pr_Controls(TWinControl(Parent.Controls[i])) ;
end;
end;
end;
begin
pr_Controls(Panel1) ;
end;
沒有留言:
張貼留言