Função que passe para enabled false os dbedits!!!
Alguem tem ou sabe fazer uma função que receba como parametro o nome do formulário e que percorra este formulário, passando apenas todos os DBEdits para enabled false?
Aguardo resposta!
Aguardo resposta!
Marciobrignol
Curtidas 0
Respostas
Sam
19/11/2003
for I := 0 to ComponentCount - 1 do
if (Components [I] is TDBEdit) then
begin
(Components [I] as TDBEdit).readonly := true;
end;
if (Components [I] is TDBEdit) then
begin
(Components [I] as TDBEdit).readonly := true;
end;
GOSTEI 0