Zitat von
Takeshi:
Beim Klick auf den btnCheckOrgn springt der Mauszeiger aber an den ClientOrigin der Form und nicht an den Origin der PaintBox.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Origin: TPoint;
begin
GetViewportOrgEx(PaintBox1.Canvas.Handle, Origin);
Origin := ClientToScreen(Origin);
SetCursorPos(Origin.X, Origin.Y);
end;
Wie du das jetzt in deine Funktion einbauen kannst, überlasse ich dir.