Objekt wird nicht zerstört

[IHops]

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 :?

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;

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?

[Geert Dade]

Moin IHops,

wenn Du so programmiert hast wie beschrieben hast Du im Object nichts falsch gemacht. Weg ist weg ...

Kannst Du einen kompilierbaren Demo-Quellcode, der das Problem nachvollziehbar macht, erreichbar ablegen?

Gruß,

Geert