Alterar tab stop e read only de varios edits ao mesmo tempo

25/03/2006

Pessoal, preciso de uma ajuda, eu preciso alterar o tabstop para false e read only para true, de todos os edits de um formulario ao mesmo tempo, eu faço isso um por um, tipo edit1.tabstop:=false; , e dá muito trabalho, tem como fazer para alterar todo componente que for tedit?
Se alguem puder dar um toque valeu!
um forte abraço a todos!


Jorgerock

Respostas

25/03/2006

Martins

Pessoal, preciso de uma ajuda, eu preciso alterar o tabstop para false e read only para true, de todos os edits de um formulario ao mesmo tempo, eu faço isso um por um, tipo edit1.tabstop:=false; , e dá muito trabalho, tem como fazer para alterar todo componente que for tedit? Se alguem puder dar um toque valeu! um forte abraço a todos!


Tente com o código abaixo por favor.

var
   i : Integer; 
begin 
  for i := 0 to ComponentCount -1 do 
     if Components[i&93; is TEdit then 
       begin 
          TEdit(Components&91;i&93;).TabStop := False; 
          TEdit(Components&91;i&93;).ReadOnly := True; 
       end;
end; 


Boa sorte!!


Responder Citar

25/03/2006

Jorgerock

É isso ai.. deu certo.. vale amigo! muito obrigado pela atenção!


Responder Citar

25/03/2006

Martins

É isso ai.. deu certo.. vale amigo! muito obrigado pela atenção!


Tranquilo :wink:


Responder Citar