Fórum Manipular (TMessage) em runt-time! #184321

Gostaria de saber como faço para manipular mensagens do Windows com outros tipos de controles (TControl).

Por exemplo, eu sei que para saber se movi uma janela em tempo de execução, crio uma procedure na seção private assim:

procedure WMJanelaMoveu(var Msg: TMessage);message WM_MOVE;

Até aí beleza, mas por exemplo, quero saber se o cursor do mouse passou sobre o botão com a mensagem CM_MOUSEENTER em tempo de execução também.

Só sei fazer qdo. crio um outro componente TButton, que já herda direto da classe TButton.

Agradeço a atenção!
Muito obrigado! :)