Ich habe ein quadratisches TShape. Bei MouseUp benutze ich:
Code:
shp1.Canvas.Brush.Color := clRed;
shp1.Canvas.Brush.Style := bsSolid;
shp1.Canvas.Ellipse(X-5, Y-5, X+5, Y+5);
um einen kleinen Kreis beim Click auf das Shape zu malen. Ich nutze die Koordinaten (des MouseUp Events) für einen Laserprojektor um einen Punkt zu projekzieren je nach dem wo ich auf das Shape klicke. Wie kann ich bei jedem Klick das Canvas (des TShape) zurücksetzen oder den letzten Punkt löschen damit ich immer nur einen kleinen roten Kreis sehen kann?
Ich verwende Delphi 7.