Alterar tab stop e read only de varios edits ao mesmo tempo
25/03/2006
0
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!
Se alguem puder dar um toque valeu!
um forte abraço a todos!
Jorgerock
Curtir tópico
+ 0
Responder
Posts
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] is TEdit then
begin
TEdit(Components[i]).TabStop := False;
TEdit(Components[i]).ReadOnly := True;
end;
end;
Boa sorte!!
Responder
25/03/2006
Jorgerock
É isso ai.. deu certo.. vale amigo! muito obrigado pela atenção!
Responder
25/03/2006
Martins
É isso ai.. deu certo.. vale amigo! muito obrigado pela atenção!
Tranquilo :wink:
Responder
Clique aqui para fazer login e interagir na Comunidade :)
