Hi,
ich will, dass mein Shape sich zu der Position, an der geklickt wurde hinbewegt.
Ich habe jetzt das Problem, dass die differenz zwischen der Mouse-Position und dem Shape 196 besträgt.
Wenn ich also links neben das Shape klicke, dann läuft alles aber wenn ich rechts daneben klicke, dann hängt das Shape rechts neben dem Cursor, statt links. Kennt ihr eine Lösung ? Hier der folgende Code:
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Shape1.Left := Mouse.CursorPos.X - 196;
end;