Shape zur MouseDown-Position verschieben

[Nils_13]

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;

[Die Muhkuh]

Warum nimmst du nicht einfach X, welches dir durch die OnMouseDown-Methode zur verfügunggestellt wird? :gruebel:

[Nils_13]

Zitat:

Zitat von Spider

Warum nimmst du nicht einfach X, welches dir durch die OnMouseDown-Methode zur verfügunggestellt wird? :gruebel:

Gut, kommt auf's selbe raus, nur wenn ich rechts neben das Shape klicke bewegt sich das Shape falsch.