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?