Tudo quot;Enabled:= Truequot;

Delphi

02/03/2004

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!!!


Diorgenes175

Diorgenes175

Curtidas 0

Respostas

Andrey

Andrey

02/03/2004

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]


GOSTEI 0
Rômulo Barros

Rômulo Barros

02/03/2004

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:


GOSTEI 0
POSTAR