[ecfisa]

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.