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:

zusammenfalten · markieren

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?

Ich denke du machst nichts falsch. Zwar sind die MenuItems eigene Objecte aber sie haben kein eigenes Fensterhandle und können somit auch keine Nachrichten empfangen. Sie sind lediglich Objecte deren Daten dann innerhalb des gesamten Menüs genutzt und dargestellt werden.

Gibt es denn dann vielleicht eine andere Möglichkeit um darauf zu reagieren, wenn die Maus auf einem Menüpunkt ist? Also zum Beispiel um in einer Statusleiste was anzuzeigen.