Cursor auf Komponente legen

[DeddyH]

Etwas vereinfacht ohne Form-Parameter:

Delphi-Quellcode:

procedure SetControlCursorPos(const Control : TControl; const CursorPos : TCursorPos);
var
  P: TPoint;
begin
  Assert(Assigned(Control), 'Kein Control zur Ausrichtung übergeben');
  case CursorPos of
    cpTopLeft:
      P := Control.ClientToScreen(Point(0, 0));
    cpTopRight:
      P := Control.ClientToScreen(Point(Control.Width, 0));
    cpBottomLeft:
      P := Control.ClientToScreen(Point(0, Control.Height));
    cpBottomRight:
      P := Control.ClientToScreen(Point(Control.Width, Control.Height));
    cpCentered:
      P := Control.ClientToScreen(Point(Control.Width div 2, Control.Height div 2));
  end;
  SetCursorPos(P.X, P.Y);
end;