Presencia del mouse sobre un objeto

[roman]

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