Hallo Delphianer,
ich hab ein ganz blödes Problem: Ich möchte nämlich
in einem Formular während der Laufzeit ein Image verschieben.
Im Mousedown habe ich das probiert:

Das ganze Formular wird verschoben, nicht aber das Image im Formular.
Danke im voraus.

ähm warum verschiebst du image nicht über die eigenschaften Top und Left?

gruß

ich würde sagen, dass das mit top und left besser geht. Also das hier dann in deine Mousedown Procedure schreiben.



So wird bei jedem MOuseklick das image um ein nach unten vershcoben. Und mit left nach links bzw rechts, jenachdem ob du + oder - verwendest.

Ich hoffe ich konnte helfen.

Apollo hat folgendes geschrieben:

markieren Delphi-Quelltext     1: 2: releasecapture; Perform(wm_syscommand, $f012,0); Das ganze Formular wird verschoben, nicht aber das Image im Formular.

Das ist klar, du sendest die Move-Message ja auch an das Formular und nicht an das Bild. Dafür bräuchtest du


Jetzt sagt Delphi aber: "Undefinierter Bezeichner: Perform". Und das auch zu Recht - Bilder können keine Messages empfangen. Das liegt daran, dass die von Delphi gezeichnet werden, und Messages eben von Windows gesendet werden. Windows kann keine Message an das Bild senden, weil es das gar nicht kennt. Das gilt übrigens für alle Komponenten, die von TGraphicControl abgeleitet sind.

Natürlich solltest du auch bein WinControls keine Messages versenden, sonder schlicht und einfach, wie bereits erwähnt, Left und Top verändern

Grüße,
Yogu

Du merkst dir einfach beim MouseDown die X und Y-Koordinaten und verschiebst dann bei MouseMove das Bild dann mit Left und Top um die Differenz der alten und der neuen Koordinaten.

Siehe z.B. Source in diesem Post dort können die grünen Quadrate mit der Maus verschoben werden. Die Implementation von MouseDown/MouseMove/MouseUp funktioniert für alle TControls, d.h. auch für TImage.
Mit Left/Top arbeiten, aber zuerst MouseCapture aufs Control.

Was bewirkt das MouseCapture denn? Ich werde irgendwie aus der Hilfe nicht schlau... Standardmäßig werden doch Mausereignisse empfangen.

Verschieben eines Formulars:
www.delphi-forum.de/...t=verschieben+bsnone

Xion hat folgendes geschrieben:

Verschieben eines Formulars

Da hast du dich wohl verlesen. Er will das Image verschieben, und das Formular hat sich stattdessen unerwünscht bewegt.

Warum denn so kompliziert? Einfache Zuweisungen von Left und Top der Bildkomponente reichen doch - was soll das denn alles mit MouseCapture o.Ä.?

Yogu hat folgendes geschrieben:

Xion hat folgendes geschrieben: Verschieben eines Formulars Da hast du dich wohl verlesen. Er will das Image verschieben, und das Formular hat sich stattdessen unerwünscht bewegt.

ja, das hab ich schon verstanden. Aber ein Image verschieben geht analog. Und meine Methode geht doch mit left und top *sich wundert*

könnte man nicht auch, wenn man auf's image klickt dass die position = mouse position ist??
ich finde so ist es am einfachsten.

Xion hat folgendes geschrieben:

ja, das hab ich schon verstanden. Aber ein Image verschieben geht analog.

Stimmt.

Xion hat folgendes geschrieben:

Und meine Methode geht doch mit left und top *sich wundert*

Das ist wohl nicht ganz richtig rübergekommen. Ich meinte mit MouseCapture delfiphan:

delfiphan hat folgendes geschrieben:

Mit Left/Top arbeiten, aber zuerst MouseCapture aufs Control.

@j.klugmann: Zunächst müsste man beachten, dass die Mauskoordinaten nicht gleich Positionskoordinaten sind. Du könntest natürlich Left := Left + X schreiben, aber dann passiert das nur bei einem Klick und es geht halt nicht so schön wie bei Delphi oder PowerPoint oder solchen Programmen.

Du könntest auch dein Image auf ein Panel ablegen.

Da TImage standardmässig csCaptureMouse im ControlStyle hat, ist das mit dem MouseCapture nicht explizit notwendig. Das geschieht in diesem Fall automatisch in TControl.WMLButtonDown.

Sorry, wenn ich Verwirrung gestiftet habe