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!
