Código Delphi [-] procedure ControlsOn(AForm: TForm; const Active: Boolean); var i: Integer; begin for i := AForm.ControlCount-1 downto 0 do AForm.Controls[i].Enabled := Active; end;
procedure ControlsOn(AForm: TForm; const Active: Boolean); var i: Integer; begin for i := AForm.ControlCount-1 downto 0 do AForm.Controls[i].Enabled := Active; end;
Código Delphi [-] begin ControlsOn(Form1, False);
begin ControlsOn(Form1, False);