Fórum ReadOnly para todos os DbEdid... #164629
04/06/2003
0
[b:6cddb9d8ce] Gostaria de saber como faço para fazer uma procedure ou uma function para colocar os ReadOnly em todos os DbEdit no form ativo que eu estou.[/b:6cddb9d8ce]
Guigao
Curtir tópico
+ 0
Responder
Posts
04/06/2003
Fred
coloque dentro da procedure o seguinte código;
var i : integer;
begin
for i := 0 to ComponentCount-1 do
if Components[i] is TDBEdit then
TDBEdit(Components[i]).ReadOnly := true; 8)
var i : integer;
begin
for i := 0 to ComponentCount-1 do
if Components[i] is TDBEdit then
TDBEdit(Components[i]).ReadOnly := true; 8)
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)