Me olvidaba...
Seguramente notes un cambio con respecto al código del primer mensaje. Lo hice no por que no funcionara, si no por que mirando el código de
mamcx, me dí cuenta que se puede reducir a:
Código Delphi
[-]
procedure SetCtrlOnOff(Ctrl1, Ctrl2: TControl);
var
Activo: Boolean;
begin
if GetPropInfo(Ctrl1, 'CAPTION') = nil then
raise Exception.Create('Error: Propiedad Caption no encontrada');
Activo := not (GetStrProp(Ctrl1, 'Caption') = 'DEVUELTO');
Ctrl1.Enabled:= Activo;
Ctrl2.Enabled:= Activo;
end;
Es la forma en que normalmente se haría, pero uno no siempre anda con todas las luces...
Saludos.