Rechtecke auf TImage ziehen mit DrawFocusRect

[Delphi-Narr]

Naja, einen Farbeimer, ein Radiergummi und einen Bleistift bekommt man mit Shapes nur nicht hin, also müsste ich eine Kombi machen.

MouseDown: SHapeerstellen und über das Image blenden
MouseMove: Shape ziehen
MouseUp: Rechteck auf Maße des Shapes erstellen und Shape löschen

Ist halt leider ein kleiner Umweg. Wäre mir halt anders lieber. Ich denke in Paint klappt das auch. Wie ist das mit einer PaintBox? Sind ja die gleichen Befehle und ich hab auch dort dieses Darstellungsproblem.

[s.h.a.r.k]

Anbei findest jedenfalls mal die programmierte Lösung von oben. Sind nur ein paar Zeilen, die du einfügen musst. Kannst es dir ja mal anschauen.