Ver Mensaje Individual
  #2  
Antiguo 28-10-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola darkbits.

El código podría ser más simple si supiera que componentes son estadorma y nrorma...

Pone en una unidad que utilices en los forms que mencionas (o create una al efecto e incluila) el siguiente procedimiento:
Código Delphi [-]
  ...
  procedure SetCtrlOnOff(Ctrl1, Ctrl2: TControl);
  ...
implementation

uses TypInfo;

procedure SetCtrlOnOff(Ctrl1, Ctrl2: TControl);
begin
  if GetPropInfo(Ctrl1, 'CAPTION') = nil then
    raise Exception.Create('Error: Propiedad Caption no encontrada');
  if GetStrProp(Ctrl1, 'Caption') = 'DEVUELTO' then
  begin
    Ctrl1.Enabled:= False;
    Ctrl2.Enabled:= False
  end
  else
  begin
    Ctrl1.Enabled:= True;
    Ctrl2.Enabled:= True;
  end;
end;
...

Llamadas ejemplo:
Código Delphi [-]
  SetCtrlOnOff(estadonorma, nrorma);  // correcto (si estadonorma tiene la propiedad Caption)
  SetCtrlOnOff(Button2,Button3);      // también correcto
  SetCtrlOnOff(Edit1, Label5);        // error!

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita