Cita:
Empezado por Thoma
te he puesto el codigo que tengo y algo debo de tener mal porque no me hace ni caso
|
Hola Thoma.
El código que adjuntaste funciona bién. Lo único que podría decir es que el cast es innecesario (pero igual funciona) ya que la clase
TControl tiene la propiedad
Enabled, es decir que podrías hacer:
Código Delphi
[-]
procedure TFrm1.DesactivarEdit;
var
i:Integer;
begin
for i := 0 to ControlCount - 1 do
if Controls[i] is TEdit then
Controls[i].Enabled := False;
end;
Si querés que sólo los TEdits y no sus descendientes se desactiven sería:
Código Delphi
[-]
procedure TFrm1.DesactivarEdit;
var
i:Integer;
begin
for i := 0 to ControlCount - 1 do
if Controls[i].ClassType = TEdit then
Controls[i].Enabled := False;
end;
El código de oscarac también es correcto y funcionará sin errores, revisá si copiaste bién.
Saludos.