Wie sende ich TImage-Mauskoordinaten korrekt an Canvas moveTo () / lineTo ()

[flashcoder]

Zitat von Frühlingsrolle:

Im Prinzip, so:

Delphi-Quellcode:

private
  FMouseDown: Boolean;

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FMouseDown := Button = mbLeft;
end;

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if FMouseDown then
    PaintBox1.Canvas.LineTo(X, Y) else
    PaintBox1.Canvas.MoveTo(X, Y);
end;

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FMouseDown := false;
end;

Dies funktioniert nicht, die Mausbewegung muss dem Android-Code in Path.moveTo () und Path.lineTo () entsprechen.