Fórum Todos DBEdit em ReadOlnly #167025
30/06/2003
0
Alguem sabe me dizer como eu façõ uma função que coloca todos meus DBEdit em ReadOlnly???
[]´s
[]´s
Sousa_thiago
Curtir tópico
+ 0
Responder
Posts
30/06/2003
Adriano Santos
For I := TForm1.ComponentCount-1 do begin
if Components[I] as TDbEdit then
TDBEdit(Components[I]).ReadOnly := True;
end;
end;
Outra solução, bem mais fácil é deixar a propriedade AutoEdit do DataSource, associado ao TTable ou TQuery, como false.
if Components[I] as TDbEdit then
TDBEdit(Components[I]).ReadOnly := True;
end;
end;
Outra solução, bem mais fácil é deixar a propriedade AutoEdit do DataSource, associado ao TTable ou TQuery, como false.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)