TMenuItem um MouseMove erweitern

[MrRenz2]

Hallo,

ich hätte gerne bei einem MenuItem in einem MainMenu auch ein MouseMove Event. Leider ist dies standardmäßig nicht drin.

Ich habe nun gedacht, ganz einfach, da bauen wir uns eben ein eigenes MenuItem, leiten das von TMenuItem ab und erweitern es um das passende Event.

Nur leider bekomme ich es einfach nicht hin.

Mein Code ist folgender:

Delphi-Quellcode:

unit ADvMenuItem;

interface

uses
  Controls, Menus, Messages, Classes, Windows;

type
  TAdvMenuItem = class (TMenuItem)
  private
    FOnMouseOver : TNotifyEvent;
    procedure FDoMouseOver (var Msg: TMsg); message wm_MouseMove;
  public
    property OnMouseOver : TNotifyEvent read FOnMouseOver write FOnMouseOver;
  end;

implementation

procedure TAdvMenuItem.FDoMouseOver (var Msg : TMsg);
begin
  if assigned(FOnMouseOver) then
      FOnMouseOver(self);
end;

Leider ist es nun aber so, dass das Programm nie in die FDoMouseOver Routine kommt. Was mache ich falsch?