Shape mit Maus bewegen

[hefner]

Hey. Der Thema hier ist eigentlich nicht als Frage sondern als Antwort gedacht. Muss für die Schule ein Spiel programmieren und hab mich für Mühle entschieden. Nun hatte ich das Problem, dass ich nicht wusste, wie man einen runden Shape (soll einen Spielstein darstellen)im laufenden Programm mit der maus auf der form bewegt. Hab hier ziehmlich lang im forum rumgesucht und keine lösung gefunden. Kann sein das das hier schon irgendwo steht aber ich hab folgendes gemacht (funktioniert auch):

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
pt := Mouse.CursorPos;
Shape1.Left := pt.X-370;
Shape1.top := pt.y-280;
Image1.Left := Shape1.Left;
Image1.top := Shape1.top;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
timer1.Enabled := true;
end;

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

Über das eigentlich Shape muss man noch ein Image legen (ist unsichtbar wenn man es nicht füllt), da man soweit ich weiß den Shape nicht selbst anwählen kann. Außerdem benötigt man einen Timer, der ständig die Position aktualisiert (sollte man so auf 10 setzen).
So. Weiß nicht ob das die sauberste art war aber was anderes ist mir nicht eingefallen. wenn jemand was besseres weiß kann er es bitte sagen

[DP-Maintenance]

Dieses Thema wurde von "Phoenix" von "Sonstige Fragen zu Delphi" nach "VCL / WinForms / Controls" verschoben.
Shape -> Control...

[Nikolas]

Wofür steht denn 370 und 280? Im Code sollten eigentlich nie Konstanten stehen, die von der Form deines Formulars o.Ä. abhängen, da du dann den Code immer anpassen musst, wenn du etwas verändern willst.

[hefner]

Hatte nicht viel Zeit und wollte nur mal gucken wie es überhaupt funktioniert. Die Werte hab ich noch von der aktuellen Position der Maus abgezogen, da wenn die Maus in der oberen linken Ecke der Form ist ihre Koordinaten nicht 0|0 betragen, sondern eben die angegebenen Werte. Lässt sich bestimmt auch schöner lösen...

[hsg]

Zitat:

Zitat von hefner

Hatte nicht viel Zeit und wollte nur mal gucken wie es überhaupt funktioniert. Die Werte hab ich noch von der aktuellen Position der Maus abgezogen, da wenn die Maus in der oberen linken Ecke der Form ist ihre Koordinaten nicht 0|0 betragen, sondern eben die angegebenen Werte. Lässt sich bestimmt auch schöner lösen...

Klingt für mich nach fehlendem ScreenToClient()