Una manera de evitar la instalación de un nuevo componente es nombrando la nueva clase
igual que su ancestro. Siguiendo el ejemplo de
Delfos:
Código Delphi
[-]
type
TButton=class(StdCtrls.TButton)
procedure CMMouseEnter(var Msg: TMessage); message CM_MouseEnter;
procedure CMMouseLeave(var Msg: TMessage); message CM_MouseLeave;
end;
procedure TButton.CMMouseEnter(var Msg: TMessage); message CM_MouseEnter;
begin
end;
procedure TButton.CMMouseLeave(var Msg: TMessage); message CM_MouseLeave;
begin
end;
Si se coloca la declaración del tipo
antes de la del formulario donde se quiera usar el botón, entonces puede insertarse éste visualmente como siempre en el formulario, y responderá a los nuevos mensajes CMMouseEnter y CMMouseLeave.
// Saludos