Como asignar evento MouseEnter y MouseLeave a componente

[NEG1414]

Buenas... He creado un componente apartir de la Clase TCustomControl

 
  class PACKAGE TMiComponente : public TCustomControl

Necesito que TMiComponente contenga los eventos OnMouseMove, OnMouseUp, MouseEnter y MouseLeave...
Con los dos primeros no he tenido problemas, los hereda de TCustomControl y con declararlos de la forma:

 
 __published: 
    __property OnMouseMove;
    __property OnMouseUp;

puedo acceder ha ellos

Situacion diferente afecta a MouseEnter y MouseLeave que supongo no son eventos de TCustomControl .

Creo que tengo que capturar los mensajes MouseEnter y MouseLeave

 
 
    //Mesaje entrar raton en componente
    void __fastcall CMMouseEnter (TMessage Message);
 
    //Mesaje salir raton del componente
    void __fastcall CMMouseLeave (TMessage Message);
 
    BEGIN_MESSAGE_MAP
     VCL_MESSAGE_HANDLER(CM_MOUSEENTER, TMessage, CMMouseEnter);
     VCL_MESSAGE_HANDLER(CM_MOUSELEAVE, TMessage, CMMouseLeave);
    END_MESSAGE_MAP (TCustomControl);
 
   void __fastcall   TMiComponente::CMMouseEnter(TMessage Message)
    {
      .....................
    }
 
 
   void __fastcall  TMiComponente::CMMouseLeave(TMessage Message)
    {
       .....................
    }

Hasta aqui correcto dentro del propio componente detecto la entrada y salida del raton... el problema es que no se como hacer para que al igual que los componentes OnMouseMove, OnMouseUp formen parte de los eventos del componente y pueda acceder a ellos "externamente"
en fase de diseño cuando forman parte de otros componentes..

Alguna idea... Gracias

Nota: HE intentado borrar el mensaje anterior enviado por error pero no doy LO SIENTO

[ecfisa]

Hola NEG1414.


A modo de guía, debería ser similar a esto:

MiComponente.h

#ifndef MiComponenteH
#define MiComponenteH

#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>

class PACKAGE TMiComponente : public TCustomControl
{ 
private:  // User declarations
  TNotifyEvent FOnMouseEnter;
  TNotifyEvent FOnMouseLeave;

protected:
  void __fastcall CMMouseEnter(Messages::TMessage &Message);
  void __fastcall CMMouseLeave(Messages::TMessage &Message);
  BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(CM_MOUSEENTER, TMessage, CMMouseEnter)
    MESSAGE_HANDLER(CM_MOUSELEAVE, TMessage, CMMouseLeave)
  END_MESSAGE_MAP(TCustomControl)

public: // User declarations
  __fastcall TMiComponente(TComponent* Owner);

__published:  // IDE-managed Components
   __property TNotifyEvent OnMouseEnter= {read= FOnMouseEnter, write= FOnMouseEnter};
   __property TNotifyEvent OnMouseLeave= {read= FOnMouseLeave, write= FOnMouseLeave};
  //...
};

#endif

MiComponente.cpp

#include <vcl.h>

#pragma hdrstop
#include "MiComponente.h"
#pragma package(smart_init)

// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
static inline void ValidCtrCheck(TMiComponente *)
{
  new TMiComponente(NULL);
}

__fastcall TMiComponente::TMiComponente(TComponent* Owner) : TCustomControl(Owner)
{
  FOnMouseEnter = 0;
  FOnMouseLeave = 0;
}

void __fastcall TMiComponente::CMMouseEnter(Messages::TMessage &Message)
{
  if (FOnMouseEnter) 
    FOnMouseEnter(this);
}

void __fastcall TMiComponente::CMMouseLeave(Messages::TMessage &Message)
{
  if (FOnMouseLeave) 
    FOnMouseLeave(this);
}

namespace Micomponente
{
  void __fastcall PACKAGE Register() {
     TComponentClass classes[1] = {__classid(TMiComponente)};
     RegisterComponents("Samples", classes, 0);
  }
}

Saludos

[NEG1414]

Sencillamente perfecto.... Gracias