ReadOnly para todos os DbEdid...
[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
Curtidas 0
Respostas
Fred
04/06/2003
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)
GOSTEI 0