Zirkuläre Referenzen

[lxo]

Hallo,

gibt es noch andere Wege eine zirkuläre Unit-Referenz zu vermeiden für diesen Anwendungsfall? (siehe Anhang)
Am einfachsten wäre ja sonst im Implementation-Uses-Block der Unit uChildForm, uMainForm einzutragen.
Damit hätte ich dann aber eine zirkuläre Unit-Referenz.

Um dies zu vermeiden, könnte man das ja auch wie im Beispiel mit Events machen.
Gibt es noch andere Möglichkeiten?

[jziersch]

Du kannst ein Interface entwickeln welches Du in einer globalen unit definierst, die keine andern Units einbindest. Dieses Interface implementierest Du dann für das Objekt, das die jeweilige Operation ausführst.

Eintragen im Implementation fall geht zwar, hat aber negative Auswirkung auf die Versionskontrolle (welche unit wurde verändert und muss neu erstellt werden) und, soweit ich weiß, auf die Compilierzeit.

[lxo]

Zitat von jziersch:

Du kannst ein Interface entwickeln welches Du in einer globalen unit definierst, die keine andern Units einbindest. Dieses Interface implementierest Du dann für das Objekt, das die jeweilige Operation ausführst.

Eintragen im Implementation fall geht zwar, hat aber negative Auswirkung auf die Versionskontrolle (welche unit wurde verändert und muss neu erstellt werden) und, soweit ich weiß, auf die Compilierzeit.

Tut mir leid, ich versteh nicht genau wie ich das umsetzen sollte ohne eine zirkuläre Referenz.
Hättest du da evtl. ein Beispiel?

[himitsu]

Unit3 enthält die Interfacedeklaration (praktisch könnte auch jeder seine egene Interfacedeklaration benutztn, so lange sie "gleich" sind, dann braucht man keine dritte Unit)
und dann verwenden beide Units 1 und 2 dieses Interface und schon haben sie unterienander keinerlei Abhängigkeiten mehr.

[Rollo62]

Interfaces können auch mit Forms, Frames, DataModules etc. genutzt werden.

Delphi-Quellcode:

type
  IMyMainForm_Interface = interface
    [GUUID]
    procedure OpenMainForm(Sender: Tobject);
  end;

...
...
...

type
  TTMainForm = class(TForm, IMyMainForm_Interface )
...
    procedure OpenMainForm(Sender: Tobject);
  end;

[lxo]

Zitat von Rollo62:

Interfaces können auch mit Forms, Frames, DataModules etc. genutzt werden.

Delphi-Quellcode:

type
  IMyMainForm_Interface = interface
    [GUUID]
    procedure OpenMainForm(Sender: Tobject);
  end;

...
...
...

type
  TTMainForm = class(TForm, IMyMainForm_Interface )
...
    procedure OpenMainForm(Sender: Tobject);
  end;

Aber wie kann ich jetzt im uChildForm das MainForm öffnen ohne dies einzubinden?
Irgendwie versteh ich das gerade nicht.

[TiGü]

Siehe Anhang. Ein skizzenhaftes Beispiel, ist natürlich verbesserungswürdig.

[jziersch]

[/QUOTE]
Aber wie kann ich jetzt im uChildForm das MainForm öffnen ohne dies einzubinden?
Irgendwie versteh ich das gerade nicht.[/QUOTE]

In der globalen Unit (die braucht man dann doch) definierts Du eine globale interface referenz.

In MainForm im OnCreate weist Du dies dann auf "Self" zu.

Im Child fragst Du die Variable ab und kannst Deine Prozedur aufrufen.

Alternativ kann natürlich jedes Child diese Variable haben und diese wird beim Erstellen gesetzt, sozusagen der "Owner"

Edit: Der Vorschlag von TiGÜ implementiert dies - sogar für das Child.

[lxo]

Zitat von jziersch:

In der globalen Unit (die braucht man dann doch) definierts Du eine globale interface referenz.

In MainForm im OnCreate weist Du dies dann auf "Self" zu.

Im Child fragst Du die Variable ab und kannst Deine Prozedur aufrufen.

Alternativ kann natürlich jedes Child diese Variable haben und diese wird beim Erstellen gesetzt, sozusagen der "Owner"

Edit: Der Vorschlag von TiGÜ implementiert dies - sogar für das Child.

Ok das hab ich verstanden.
Ist aber nicht so wie ich es mir vorgestellt habe.
Mit der Lösung kann ich nur mit jeweils einer Instanz von MainForm oder ChildForm arbeiten.

Beim Öffnen möchte ich jedoch immer eine neue Instanz erzeugen.

[Uwe Raabe]

Hier noch eine Lösung auf Basis von System.Messaging.