Zirkularen Bezug von zwei Forms wie vermeiden ?

[RWarnecke]

Hallo zusammen,

ich habe zwei Formulare Form1 und Form2. Wenn ich jetzt bei Form2 das Parent auf Form1 setze, wird mir ja Form2 in Form1 angezeigt. Wenn jetzt Form2 bestimmte Elemente wie z.B. Buttons steueren soll (z.B. Aktivieren und Deaktivieren) muss ich ja einen zirkularen Bezug der beiden Units herstellen.

Kann ich das auch nich irgendwie anders realisieren ? Mir schwebt da zum Beispiel vor mit Messages oder bestimmten Events. Nur leider habe ich dazu keinen Denkansatz, was hier am besten ist.

Gruß
Rolf

[Sir Rufo]

Du kannst die beiden Units kreuzweise im implementation Teil eintragen, dann tun die sich auch nichts
Problematisch wird es nur im Interface Teil

[RWarnecke]

Hallo Sir Rufo,

danke für Deine Antwort. Mir ist gerade aufgefallen, ich habe noch etwas vergessen bei meiner Ausführung. Die Buttons sollen auch bestimmte Aktionen in der Form2 steuern. Deswegen der zirkulare Bezug.

[himitsu]

Nur wenn du im Implenentations-Teil Deklarationen der anderen Unit benötigst oder in Initialisation/Finalization was von drüben verwendest, muß diese Unit in Implementation importiert werden.
Ansonten kann man sie halt auch erst in Implementation importieren und dort gibt es keine Probleme mit zirkulären Referenzen (für den Compiler).

[ConnorMcLeod]

Mach eine dritte Unit mit Hilfsfunktionen, die die Komponenten und Werte als Parameter hat.

[himitsu]

Zitat von ConnorMcLeod:

Mach eine dritte Unit mit Hilfsfunktionen, die die Komponenten und Werte als Parameter hat.

Bzw. gleich die ganze Logik dort rein.

Der Button und der Aufruf aus der anderen Unit/Form rufen dann einfach direkt die gewünschte Funktion auf.

[RWarnecke]

Zitat von ConnorMcLeod:

Mach eine dritte Unit mit Hilfsfunktionen, die die Komponenten und Werte als Parameter hat.

Die Idee hört sich interessant an. Nur kann ich mir noch nicht vorstellen, wie ich das Aktivieren oder Deaktivieren eines Buttons über eine dritte Hilfsunit steuern kann. Ich müsste in der Hilfsunit für jede Aktion die ich machen möchte eine eigene Procedure schreiben.

Zitat von himitsu:

Zitat von ConnorMcLeod:

Mach eine dritte Unit mit Hilfsfunktionen, die die Komponenten und Werte als Parameter hat.

Bzw. gleich die ganze Logik dort rein.
Der Button und der Aufruf aus der anderen Unit/Form rufen dann einfach direkt die gewünschte Funktion auf.

Ähm, da komme ich mal wieder nicht mit. Ich habe doch die Buttons in der Form1, wie soll ich denn die Logik der Komponenten in die Hilfsunit auslagern. Das einzigste was ich mir gerade vorstellen kann, wäre die Komponenten (Buttons u.s.w.) zur Laufzeit zu erstellen. Liege ich da mit meiner Vorstellung richtig ?

[ConnorMcLeod]

Delphi-Quellcode:

procedure tuwas(var AButton: TButton);
begin
  AButton.Caption := 'helloworld';
end;

procedure tuwasanderes(var AButton: TButton; const AText: string);
begin
  AButton.Caption := 'helloworld';
  AButton.Hint    := AText;
end;

So einfach ist das.

[Sir Rufo]

äh, wozu übergibst du die Objekt-Referenz als var Parameter?

Das wäre ja ein Hinweis, dass in der Procedere die Objekt-Referenz verändert werden könnte.

[ConnorMcLeod]

Eben drum. Das ist ja der Sinn der ganzen Übung.