Canvas Rectangle mit MouseMove, MouseDown und MouseUp

[Khabarakh]

Ja, der Rahmen mit Xor ist nett, habe ich selbst z.B. hier (rechte Maustaste) eingesetzt.
Allerdings bin ich nach

Zitat von Nils_13:

Delphi-Quellcode:

    PaintBox1.Canvas.Brush.Color := clBlack;
PaintBox1.Canvas.Brush.Style := bsSolid;

davon ausgegangen, dass das Rechteck gefüllt werden soll, und das sieht meistens nun wirklich nicht schön aus .