MouseOverGadget und MouseWheelDelta wollen nicht zusammen

[Lukaso]

Hallo,

ich habe irgendwo eine Procedure ausgegraben, womit ich schauen kann ob die Maus sich über einem Gadget befindet. Damit würde ich mir die Hardgecodeten Mauskoordinaten abfragen ersparen. Als ich gerade alles umgeschrieben habe, habe ich bemerkt, dass wenn die Abfrage läuft, ich das Mausrad nicht mehr benutzen kann da MoseWheelDelta keinen Wert liefert. Die MouseOverGadget abfrage läuft in einer Schleife.

Hier nochmal beide Proceduren:

Code: Alles auswählen

Procedure.w MouseWheelDelta() 
  X.w = ((EventwParam()>>16)&$FFFF)
  ProcedureReturn -(X / 120) 
EndProcedure

und

Code: Alles auswählen

Procedure MouseOverGadget(Gadget)
  GetWindowRect_(GadgetID(Gadget), re.RECT)
  GetCursorPos_(pt.POINT)
  ProcedureReturn PtInRect_(re, pt\x, pt\y)
EndProcedure

Kann mir einer sagen, wie ich die beiden Proceduren dazu bekomme miteinander zu arbeiten?

Danke für die Hilfe!

MFG Lukaso

Edit: Erledigt! Kann ggf. gelöscht werden!