Desabilitar todos os componentes de um form

[Valdiney F. Lima 0]

Preciso desabilitar todos os componentes existente em um form. O detalhe é que como alguns componentes são criados em tempo de execução teria que ser uma rotina que fosse como um "arrastão" <-- essa é ótima rsrsrsrs...Teria que verificar quais componentes existem e depois desabilitar.Como?;)

[Hugo Slepicka 0]

um exemplo aew pra você...

 

ele limpa todos os edits de um form...

 

 

procedure TForm1.LimpaEdits;begin  for i:= 0 to ComponentCount-1 do  begin	if Components[i].ClassName = 'TEdit' then	TEdit(Components[i]).Clear; // ou TEdit(Components[I]).Text:= ''  end;end;

[Valdiney F. Lima 0]

um exemplo aew pra você...

 

ele limpa todos os edits de um form...

 

 

procedure TForm1.LimpaEdits;begin  for i:= 0 to ComponentCount-1 do  begin	if Components[i].ClassName = 'TEdit' then	TEdit(Components[i]).Clear; // ou TEdit(Components[I]).Text:= ''  end;end;

Retornou:

[Error] uCadastrarImoveis.pas(210): Undeclared identifier: 'ComponentCount'

[Valdiney F. Lima 0]

[Error] uCadastrarImoveis.pas(210): Undeclared identifier: 'ComponentCount'

Problema resolvido.

Eu não havia declarado o procedimento.

 

Agora tudo certo.

[Hugo Slepicka 0]

OK...

 

http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif