Tudo quot;Enabled:= Truequot;

Question

Para fazer restri��es a usuarios coloco entre outros empecilhos botoes �Enabled:= False�. O que eu queria saber � como eu fa�o para deixar todo o Formul�rio habilitado, sem precisar reabilitar botao por botao ou menu por menu quando houver a troca de usuario com restri��es para um sem restri��es.

Valeu!!!

Andrey · Answer

Bom, vc pode abreviar tudo pegando os componentes do form pela classe:

for i := 0 to ComponentCount - 1 do
begin
    {desabilitar todos os checkbox do form}
    If Components[i].ClassName = �TCheckBox� then
      TCheckBox(Components[i]).Enabled := False;
    {desabilitar todos os maskedits}
    If Components[i].ClassName = �TMaskEdit� then 
      TMaskEdit(Components[i]).Enabled := False;
    {limpar todas as caixas de texto}
    If Components[i].ClassName = �TEdit� then 
      TEdit(Components[i]).Clear;
end;

E por ai vai. Espero ter ajudado![/code]

R�mulo Barros · Answer

Primeiramente, coloque na propriedade Tag o valor 1 (um) para todos os componentes protegidos. Em seguida, basta implementar o c�digo abaixo:

Var
  C : Byte;
...
   For C := 0 To Self.ComponentCount -1 Do
   Begin
       If(Components[C].Tag=1)Then
          TControl(Components[C]).Enabled := False;
   End;

...
...

:twisted: :twisted: :twisted: :twisted:

F�rum Tudo quot;Enabled:= Truequot; #217639