Sobre la variable Sender

[delphi.com.ar]

Tu problema no es la optimización del codigo, sino que tu código es propenso a errores inesperados, porque si el objeto pasado como sender no es un TMenuItem o un TdxWinXPBarItem, seguramente tendras un error bastante feo.

Código Delphi [-]
if (Sender is TMenuItem) then   
  with  TMenuItem(Sender) do
  begin
    H := Hint;
    Cap := Caption;    
  end
else if (Sender is TdxWinXPBarItem) Then
  with TdxWinXPBarItem(Sender) do
  begin
    H := Hint;
    Cap := Caption;
  end
else
  raise....

[yusnerqui]

Muchas gracias por tu rápida respuesta, tienes mucha razón(debemos controlarlo todo) a pesar que la aplicacón la estoy programando yo y estoy completamente seguro que solo esos dos tipos apuntan a este evento no di la importancia que debía al control de errores.
Regresando al tema del hilo, no entiendo la causa de que no exista un método para acceder a una determinada propiedad por su nombre independientemente de la clase que sea.

[yusnerqui]

Muchas Gracias por la gran ayuda, mi lenta conección me obligó a responder a el amigo Delphi.com.ar antes de haber podido leer tu mensaje, no conocía esta unit que concidero muy interesante.

reslví mi problema que no era de asignar el valor a la propiedad sino de capturar dicho valor con:

Código Delphi [-]
  H:= GetPropValue(Sender,'hint');
  Cap := GetPropValue(Sender,'Caption');

Mil gracias a todos nuevamente y un saludo

Yusnerqui

[delphi.com.ar]

Utilizar RTTI no es precisamente optimizar el código, que es lo que tu pedías... si posiblemente sea flexibilizarlo.

Saludos!