optimizar el codigo para no tener lo mismo mas de 5 veces en el proyecto

[ecfisa]

Empezado por darkbits

gracias por su ayuda
vi unos ejemplos y creo que es la forma mas facil trate de hacerlo no funciona

Hola.

A mi me funciona perfectamente, te adjunto un ejemplo para que lo estudies con tranquilidad.

Saludos.

[ecfisa]

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');
  // o igualmente: Activo := 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.