OnMouseMove verzögern

[DGL-luke]

Zitat von faux:

Meine Kompo hat diese Events nicht.

Was hab ich denn drüber geschrieben? Du sollst die Messages implementieren. Du weisst nicht, das bedeutet?

Delphi-Quellcode:

type
  tmyPanel = class(TPanel)
  public
    FMouseLeave, FMouseEnter: TNotifyEvent;
   
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

    constructor Create(AOwner: TComponent); override;
  published
    property OnMouseEnter: TNotifyEvent read FMouseEnter write FMouseEnter;
    property OnMouseLeave: TNotifyEvent read FMouseLeave write FMouseLeaver;
  end;

implementation

{$R *.dfm}

{ tmyPanel }

procedure tmyPanel.CMMouseEnter(var Message: TMessage);
begin
  if Assigned(OnMouseEnter) then
    OnMouseEnter(self);
end;

procedure tmyPanel.CMMouseLeave(var Message: TMessage);
begin
  if Assigned(OnMouseLeave) then
    OnMouseEnter(self);
end;

procedure tmyPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  OnMouseEnter := nil;
  OnMouseLeave := nil;
end;

end.

Sonst noch Wünsche? Soll ich dir n heisses Bad einlassen?

EDIT: Seitenhieb entfernt.