Rahmen in TImage, mit Maus verschiebbar

[ueei.net]

Hallo,

ich lade mir in ein TImage ein Bild, und möchte in diesem Bild ein Canvas zeichnen (mit vorgegebener Größe), welches sich innerhalb dieses Bildes mit der Maus verschieben lässt, um so einen Ausschnitt aus diesem Bild wählen zu können.
Der Ausschnitt soll dann in eine anderes Image kopiert werden, das ist aber nicht das Problem.

Hab schon einiges zum Thema gefunden, aber wirklich funktioniert das bei mir noch nicht.

[Khabarakh]

Hast du ein konkretes Problem oder fehlt dir ein Ansatz? Ein bisschen Pseudocode:

Code:

Rect: TRect;
MousePos: TPoint;

OnMouseDown
  MousePos := Point(X, Y);

OnMouseMove
  if ssLeft in ShiftState then
    Rectangle(Displace(Rect, Point(X, Y) - MousePos);

OnMouseUp
  Rect := Displace(Rect, Point(X, Y) - MousePos);

Displace(TRect, TPoint) // Verschiebt Rechteck
  [...]

[ueei.net]

Hallo,

mein Problem ist, das ich es nicht geschafft habe, dieses Rechteck an die Maus zu "hängen", sprich eigentlich sollte wenn ich die Maustaste drücke das Rechteck an der Maus hängen bleiben.