Array
(
)

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

Jorgerock
   - 25 mar 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!


Martins
   - 25 mar 2006


Citação:
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.

#Código


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


Boa sorte!!


Jorgerock
   - 25 mar 2006

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


Martins
   - 25 mar 2006


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


Tranquilo :wink: