Ver Mensaje Individual
  #2  
Antiguo 29-11-2015
wilcg wilcg is offline
Miembro
 
Registrado: abr 2014
Posts: 107
Reputación: 11
wilcg Va por buen camino
Hola scigliano,
Para lo que quieres hacer, yo lo hago de esta manera espero te sirva.

OPCION 1
- Habilitar y desabilitar los controles deseados del FORM

Código Delphi [-]
procedure TFode.OnOfCtrl(const Enabled: Boolean; Ctrls: array of TControl);
var
  i: Integer;
begin
  for i:= Low(Ctrls) to High(Ctrls) do
    Ctrls[i].Enabled:= Enabled;
end;

USO:
Habilitar
Código Delphi [-]
Fode.OnOfCtrl(True,[Edit1,Edit2,Edit3,.....]);
Desabilitar
Código Delphi [-]
Fode.OnOfCtrl(False,[Edit1,Edit2,Edit3,.....]);

OPCION 2
Habilitar & desabilitar todos los controles que hay en un FORM

Código Delphi [-]
procedure TFode.OnOfForms( Enabled: Boolean; F :TForm );
var
  Lista: TList;
  i :integer;
begin
  Lista := TList.Create;
  try

    F.GetTabOrderList(Lista);
    for i := 0 to Lista.Count - 1 do
      if TWinControl(Lista[i]) is TEdit then
        TEdit(Lista[i]).Enabled := Enabled
      else
      if TWinControl(Lista[i]) is TcxTextEdit then
        TcxTextEdit(Lista[i]).Enabled := Enabled
      else
      // mas..... Aqui indica con que controles quieres que funcione

  finally
    Lista.Free;
  end;
end;

USO:
Habilitar
Código Delphi [-]
Fode.OnOfForms( True, Form1 );
Desabilitar
Código Delphi [-]
Fode.OnOfForms( False, Form1 );

Puedes adaptarle a lo que necesitas, espero sea útil.
Responder Con Cita