Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: MouseMove außerhalb

    Delphi
    by stahli, 21. Jan 2014
  aus einem älteren Projekt von mir:
  
  function IsMouseOverControl(const ctrl: TControl): boolean;
  var
  sr: TRect;
  begin
  sr := Rect(ctrl.ClientToScreen(Point(0, 0)), ctrl.ClientToScreen(Point(ctrl.Width, ctrl.Height)));
  result := PtInRect(sr, Mouse.CursorPos);
  end;