MouseEnter/MouseLeave ohne VCL!

[rey003]

Hallo Leute,
ich hab ein Problem mit den oben genannten Funktionen! Oder besser gesagt, es gibt diese Funktionen ja leider ohne VCL gar nicht! Ich habe mir eine eigene Komponente für NonVCL geschrieben, die wie eine Art Button funktionieren soll! Dieser "Button" soll jetzt auf MouseEnter und MouseLeave reagieren!
Bis jetzt hab ich es so gemacht, weil ich es nicht besser wusste:

MouseMove-Nachicht des Hauptfensters (wo die Komponente drauf sitzt)!

Delphi-Quellcode:

var
  Target       : HWND = 0;
  FMouseTarget : HWND = 0;
...
   
   WM_MOUSEMOVE:
    begin
      if (GetCursorPos(point)) then
        begin
          Target := WindowFromPoint(point);
          ScreenToClient(Target, point);
          Target := ChildWindowFromPoint(Target, point);
          if (FMouseTarget = hwnd_Main) and (Target <> hwnd_Main)
           then sendmessage(Target,WM_DSMOUSEENTER,0,0);
          if (FMouseTarget <> hwnd_Main) and (Target = hwnd_Main )
           then sendmessage(FMouseTarget,WM_DSMOUSELEAVE,0,0);
          FMouseTarget := Target;
        end;
    end;

Da das nur gilt wenn sich die Mouse auf dem Fenster befindet und nicht wenn die Mouse über der Komponente ist, hab ich bei der Komponente einfach nur das reingeschrieben:

Delphi-Quellcode:

  WM_MOUSEMOVE:
    begin
     //nicht wichtig 
      if Assigned(config^.FOnMouseMove)
       then config^.FOnMouseMove(config^.MainWnd,LOWORD(lParam),HIWORD(lParam));
     //das aber 
      sendmessage(GetParent(config^.MainWnd),WM_MOUSEMOVE,0,0);
    end;

Ich weiß das ist nicht grade sauber programmiert, aber mir fiel nichts besseres ein!
Nun hab ich aber leider festgestellt, dass das nun nicht mal immer funktioniert!
Sobald die Mouse zu schnell ist, kommt es zu einer Verzögerung und es funktioniert nicht mehr! (besonders bei MouseLeave)
So jetzt zu meiner Frage:
Wie würdet ihr sowas realisieren???
Ich hoffe ihr könnt mir helfen! Schon mal danke im Voraus!