Objekt soll Referenz auf sich zurückliefern

[pingun]

Hallo,

meineFiguren ist vom Typ TFigur;

Sorry Fehlermeldung bedeutet: das Objekt wird nicht zurückgeliefert. Er macht nicht. Er kommt in die Verzweigung, in der result:=self; steht. Das läuft. Aber wenn ich das zweite Quadrat anklicke, wird dieses kleine Quadrat (hatStift.zeichneRechteck(10,1) gezeichnet, aber das aktuelle Objekt kommt nicht zurück.
Im Hauptpgrogramm wird also aktiveFigur nicht gesetzt.

Zitat:

Versuch mal, als Rückgabewert nicht TFigur, sondern TQuadrat anzugeben.

Es ändert sich nichts. Er macht ja auch keine Fehler beim Compilieren, sondern er liefert bloss das aktuelle Qbjakt nicht zurück.


Hintergrund:
In meineFigure speichere ich eine verkettete Liste mit allen Figuren, die der Benutzer erstellt. Die Liste soll dann in getroffen durchgegangen werden, bis zum Ende. Beim Treffer soll das entsprechende Objekt sich selbst zurückliefern, so dass ich das aktive Objekt drauf zeigen lassen kann.

Frage ist: wie kann das Objekt, welches getroffen wurde und vom Type TFigur ist, sich zurückliefern (auch Typ TFigur)?

Gruss
Gunnar