SetCursorPos ScreentoClient

[himitsu]

Zitat von Praxist:

Ich verstehe nicht

was verstehst du denn nicht?

Delphi-Quellcode:

// Pt = der Punkt im Panel1, wo der Mauszeiger hin soll

Pt := Panel1.ClientToScreen(Pt);
SetCursorPos(Pt.X, Pt.Y);

Ja und wie soll man den Mauszeiger wieder von einem Punkt wegbekommen, wenn er ständig wieder dahin zurückgesetzt wird, sobald man versucht diesen von da wegzubewegen?

einfach mal in 'ner leeren Form einbauen ... und Maus in das Kästchen schieben:
(Tipp, da OnMouseMove zum Glück nicht immer sehr schnell ist ... die Maus ganz schnell bewegen und ihr kommt eventuell wieder raus)

Delphi-Quellcode:

Procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  Var Pt: TPoint;

  Begin
    //Pt := Form1.ScreenToClient(Mouse.CursorPos);
    {}Pt.X := X;  // wozu Mouse.CursorPos abfragen,
    {}Pt.Y := Y;  //   obwohl man die Werte doch schon in X und Y hat?

    Caption := Format('%d:%d', [Pt.X, Pt.Y]);

    If (Pt.X in [100..200]) and (Pt.Y in [50..150]) Then Begin
      Pt.X := 100 + (200 - 100) div 2;  // 150
      Pt.Y :=  50 + (150 -  50) div 2;  // 100
      Pt := Form1.ClientToScreen(Pt);
      SetCursorPos(Pt.X, Pt.Y);
    End;
  End;

Procedure TForm1.FormPaint(Sender: TObject);
  Begin
    Canvas.Pen.Color   := clBlack;
    Canvas.Brush.Style := bsClear;
    Canvas.Rectangle(100, 50, 200, 150);
  End;

[add]

Zitat:

Es ist nicht möglich den Mauszeiger mit ScreenToClient zu positionieren

das hab ich auch nicht behauptet, aber damit läßt sich die Position berechnen, welche man SetCursorPos übergibt