Fórum Mudar Propriedade de vários componentes em tempo de execução #235375

01/06/2004

0

Delphi

Por exemplo, tenho 50 edit´s (edtcodigo, edtnome, edtCPF, edt...)
Tem como eu mudar a propriedade Enabled de todos eles de false para true, de uma maneira diferente de:
edtCodigo.enabled := true;
edtNome.enabled := true;
edtCPF.enabled := true;
...
50 vezes mais
...
edt*.enabled :=true;(ufa!!!)


Bossoni

Bossoni

Responder

Posts

01/06/2004

Tatuweb

Faça assim

var
  i: word;
begin
  for I := 0 to ComponentCount - 1 do
  if (Components [I] is TEdit) then (Components [I] as TEdit).Enabled := TRUE;
end;



Responder

Gostei + 0

01/06/2004

Djjunior

em lugar do is TEdit no teste eu prefiro o InheritsFrom(TCustomEdit) fica mais genérico :wink:.
Só que pra gravar vc tem q usar o TapCast apropriado. tipo
para um TCurrencyEdit vc tem que usar um as TCurrencyEdit mesmo :twisted:


Responder

Gostei + 0

01/06/2004

Rômulo Barros

em lugar do is TEdit no teste eu prefiro o InheritsFrom(TCustomEdit) fica mais genérico :wink:. Só que pra gravar vc tem q usar o TapCast apropriado. tipo para um TCurrencyEdit vc tem que usar um as TCurrencyEdit mesmo :twisted:


Sem dúvidas !!!!!! :P


Responder

Gostei + 0

01/06/2004

Paulo_amorim

Faça assim 
var
  i: word;
begin
  for I := 0 to ComponentCount - 1 do
  if (Components [I] is TEdit) then (Components [I] as TEdit).Enabled := TRUE;
end;


Olá

Só para completar, também existe a sintaxe
TEdit( Components[i] ).Enabled := True;

Até+


Responder

Gostei + 0

01/06/2004

Bossoni

Obrigado a todos pela ajuda.


Responder

Gostei + 0

01/06/2004

Rômulo Barros

[quote:b5c24b5f1d=´TatuWeb´]Faça assim 
var
  i: word;
begin
  for I := 0 to ComponentCount - 1 do
  if (Components [I] is TEdit) then (Components [I] as TEdit).Enabled := TRUE;
end;


Olá

Só para completar, também existe a sintaxe
TEdit( Components[i] ).Enabled := True;

Qual o motivo da repetição do código que já foi postado, por vc mesmo?

Até+[/quote:b5c24b5f1d]


Responder

Gostei + 0

01/06/2004

Paulo_amorim

Olá

Não fui eu quem postei o código que havia funcionado...

Coloquei o código na citação porque já estava la e não tirei...

Até+


Responder

Gostei + 0

02/06/2004

Rômulo Barros

Olá Não fui eu quem postei o código que havia funcionado... Coloquei o código na citação porque já estava la e não tirei... Até+


Beleza, amigão !!! :wink:


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar