Mega Code Archive

 

Categories / Delphi / Hardware

 

IsMouseOver

Title: IsMouseOver Question: A general function to determine if the mouse is over a vcl control. Answer: function IsMouseOver (Control: TControl): boolean; var p: TPoint; begin { get absolute coordinates } if GetCursorPos (p) then begin { convert to relative coordinates of component } p := Control.ScreenToClient (p); { coordinates within Control? } Result := (p.x = 0) and (p.x (p.y = 0) and (p.y end else { this should never happen, but who knows... } Result := false; end;