[Marcos R.]

Ok,

but before I saw your answer I resolved with this same code.

Even so, thank you by your help and by your education.

Marcos

[Marcos R.]

I did it !

Here is the code:

Code:

procedure Status(sForm: Tform; bHab: boolean);
var
iA : integer;
AComponent: TComponent;
begin
for iA := 0 to sForm.ComponentCount – 1 do
begin
if sForm.Components[iA] is TsButton then
begin
AComponent := sForm.FindComponent(sForm.Components[iA].Name);
if Assigned(AComponent) then
if AComponent is TControl then
TControl(AComponent).Enabled := bHab;
end;
end;
end;

Thanks,

Marcos

[Author]

Posts