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); SetCtrlOnOff(Button2,Button3); SetCtrlOnOff(Edit1, Label5);
Saludos.