Hi ich habe eine Klasse TAmpel von der Klasse TPanel abgeleitet.
Diese hat die function GetPhase die für jede Phase einen String zurückliefert so jetzt möchte ich eine Prozedur für die Klasse TAmpel schreiben die auf die Andere Ampel reagiert. Allerdings funktioniert das so nicht

Delphi-Quelltext    ausgeblendet	markieren
1: 2: 3: function ReactOn (s: string); if TAmpel(FindComponent(s)).GetAmpelPhase = 'RotPhase' then GruenPhase

Was ja auch klar ist da man ja nicht einfach auf das Formblatt zugreifen kann. Wie kriege ich das jetzt zum laufen?

Wenn andere Klasse direkt den selben Eigentümer hat:

Delphi-Quelltext    ausgeblendet	markieren
1: if TAmpel(Owner.FindComponent(s)).GetAmpelPhase = 'RotPhase'

Sonst halt rekursive die Owner durchsuchen bis Owner das Formular ist.

Ich würde das anders lösen. Du hast deine Instanzen einer Ampel, zB Ampel1. Und dann die zweite Ampel zB Ampel2, die auf die erste reagiert. Wenn die Ampel1 ihre Phase ändert muss sie das der anderen mitteilen. Dafür muss sie die andere Ampel kennen. Da Ampeln an einer Kreuzung zusammen geschaltet sind, solltest du über eine Ampelverwaltungsklasse nachdenken, die alle Ampeln kennt, die miteinander agieren. Diese Klasse sorgt dann für die synchronisation. (siehe Observer-Pattern)

MfG
freak