Hola amigos del foro, mi duda es la siguiente: Tngo un evento que comparto con dos componentes de diferente tipo, pero en dicho esvento tengo que extraer las mismas propiedades a estos componentes(el hint y el caption) rl único ancestro común que tienen es TComponent y este no tiene estas propiedades, entonces tengo que hacer lo siguiente.
Código Delphi
[-]
if (Sender is TMenuItem) then
begin
H := TMenuItem(Sender).Hint;
Cap := TMenuItem(Sender).Caption;
end
else
begin
H := TdxWinXPBarItem(Sender).Hint;
Cap :=TdxWinXPBarItem(Sender).Caption;
end;
Si nos fijamos la única diferencia es la captura del tipo de objeto que viene por Sender.
Mi pregunta es: Existe alguna forma de obtimizar el código anterior.
desde ya mil gracias
Saludos Yuserqui.