Todos DBEdit em ReadOlnly
Alguem sabe me dizer como eu façõ uma função que coloca todos meus DBEdit em ReadOlnly???
[]´s
[]´s
Sousa_thiago
Curtidas 0
Respostas
Adriano Santos
30/06/2003
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.
GOSTEI 0