Ich habe für ein kleines "Schulprogramm" eine Klasse THaus erstellt. Objekte Haus werden dann gezeichnet, können verschoben werden ... durch Klick auf einen Button wird das Objekt auch wieder zerstört - sollte es zumindest :?
Nunja, das Bild entfernen funktioniert, nur das Objekt an sich ist danach immer noch da. Sobald ich mit Hilfe der Scrollbars das Haus (welches eigentlich nicht mehr da ist) verschiebe, wird es wieder gezeichnet ... :shock:
Hat jemand eine Idee, wo mein Denkfehler sitzt?
Code:
destructor THaus.Destroy; begin // Bild löschen with FContainer do begin Brush.Color := clWhite; Pen.Color := clWhite; Rectangle(FX-7,FY,FX+FWidth+7,FY-FHeight-2*FR-2); end; // Objekt entfernen inherited Destroy; end;
Hat jemand eine Idee, wo mein Denkfehler sitzt?
Comment