2 Formulare verbinden geht nicht :(

[Perlsau]

Zitat von blubber443:

Moin, ich hab 2 Formulare in meinem Projekt mein hauptformular (form1 in unit1) und das 2. (form2 in unit2)
wenn ich von form1 auf form2 zugreife geht das
wenn ich jedoch danach von form2 auf form1 zugreifen will geht das nicht[]

Du kannst auch eine dritte Unit (ohne Form, z.B. UnitFormZugriff) erstellen, die Zugriff auf beide Form-Units hat. Diese dritte Unit bindest du dann in beiden Form-Units in den Uses-Abschnitt unterhalb des Implementation-Abschnitts ein. Ebenso bindest du in der UnitFormZugriff die beiden Form-Units in den Uses-Abschnitt unterhalb des Implementation-Abschnitts ein.

[Der schöne Günther]

Lustigerweise meldet zumindest mein XE2-Ent bei solchen Geschichten ein "Voller Arbeitsspeicher" bei [STRG]+[F9] und "zirkuläre Referenz" bei [F9] - Oder umgekehrt

[Perlsau]

Zitat von Der schöne Günther:

Lustigerweise meldet zumindest mein XE2-Ent bei solchen Geschichten ein "Voller Arbeitsspeicher" bei [STRG]+[F9] und "zirkuläre Referenz" bei [F9] - Oder umgekehrt

Diese Meldung erscheint nur, wenn du die Units in Interface-Uses einträgst. Du sollst sie aber unter Implementation eintragen:

Delphi-Quellcode:

{ ****************************************************************************************************************
  *** ZUGRIFF AUF UNITMAIN für EINSTELLUNGEN ETC.                                                              ***
  **************************************************************************************************************** }
unit Main_Zugriff;

INTERFACE

USES
  Vcl.Forms, System.Classes, System.SysUtils, JvRichEdit, JvDBRichEdit, Vcl.DbGrids;

TYPE
  TMain_Zugriff = CLASS

  PRIVATE

  PUBLIC
    Spalten_Filmtitel : Integer;

    CONSTRUCTOR Create();
    DESTRUCTOR Destroy; override;

    PROCEDURE Set_FormMain(Const Links, Oben, Breit, Hoch : Integer; Const Maximiert : Boolean);
    PROCEDURE Get_FormMain(Var   Links, Oben, Breit, Hoch : Integer; Var   Maximiert : Boolean);
    PROCEDURE StatusBarAktuell;
    PROCEDURE LaenderEinlesen;
    PROCEDURE LaenderAnzeigen;
    PROCEDURE Set_Spalte_FilmTitel(Const Spalte,Breite : Integer);
    FUNCTION  Get_Spalte_FilmTitel(Const Spalte : Integer) : Integer;

  END;

IMPLEMENTATION

USES
    UnitMain, UnitData; // Hier eintragen

{+-+- PUBLIC METHODEN -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-}

{ ****************************************************************************************************************
  *** CREATE                                                                                                   ***
  **************************************************************************************************************** }
constructor TMain_Zugriff.Create;
begin
     Spalten_Filmtitel := FormMain.DBGrid_Filmtitel.Columns.Count;
end;

{ ****************************************************************************************************************
  *** DESTROY                                                                                                  ***
  **************************************************************************************************************** }
destructor TMain_Zugriff.Destroy;
begin

  inherited;
end;

...

Ich habe hier eine Klasse entwickelt, die Zugriff auf Komponenten der Klasse TFormMain (Hauptformular) ermöglicht, und zwar von jeder anderen Unit oder Form aus, die diese Klasse referenziert. Da gab's noch nie irgend einen Fehler, den ich nicht selbst verbockt hatte. Du kannst auch zwei Forms direkt verbinden, indem du den Unit-Namen der einen Form unter Implementation (nicht unter Interface!) in die Uses-Klausel einträgst. Ich hab z.B. manchmal im Hauptformular das Datenmodul referenziert und im Datenmodul das Hauptformular, immer jedoch unterhalb von Implementation. Das ist ganz wichtig!

[DeddyH]

Eigentlich sollte man es aber vermeiden, dass 2 Klassen sich gegenseitig kennen müssen. Dasselbe gilt für Fomulare (sind ja schließlich auch nur Klassen). Wenn ein Formular eine Schnittstelle (etwa in Form einer Property) anbietet, kann ein anderes darüber auf das Formular zugreifen und ggf. vice versa. Dafür ist es dann aber nicht mehr notwendig, dass das Fomular mit der Schnittstelle das andere kennt.

[Perlsau]

Zitat von DeddyH:

Eigentlich sollte man es aber vermeiden, dass 2 Klassen sich gegenseitig kennen müssen. Dasselbe gilt für Fomulare (sind ja schließlich auch nur Klassen). Wenn ein Formular eine Schnittstelle (etwa in Form einer Property) anbietet, kann ein anderes darüber auf das Formular zugreifen und ggf. vice versa. Dafür ist es dann aber nicht mehr notwendig, dass das Fomular mit der Schnittstelle das andere kennt.

Richtig. Doch im einen Fall benötigte ich gewisse Manipulationen der Properties nicht vom Mainform aus, sondern auch von anderen Forms bzw. Units. Bestes Beispiel, das mir gerade einfällt: Im AfterScroll-Ereignis etlicher Datasets, die im Datenmodul liegen, sollen bestimmte Anzeigen auf dem Mainform aktualisiert werden, so z.B. die aktuelle Record-Nummer oder eine ComboBox. Ich hatte z.B. eine Zeit lang das Problem, daß ich in DBLookUpCombos keine korrekte Darstellung von Strings, die in der Firebird-DB als UFT8 codiert waren, erreichen konnte. Das lag an den veralteten Datenbank-Komponenten. Da mußte ich auf ComboBoxen ausweichen, und deren ItemIndex mußte nach jedem Scroll der Haupttabelle aktualisiert werden. Wie sollte ich das sonst lösen als durch einen Eintrag von UnitMain in das Implementation-Uses von UnitData (Datenmodul)? Schwierigkeiten hat das zumindest gar keine gemacht, um nicht zu sagen, es hat wunderbar funktioniert.

[DeddyH]

Das könnte man z.B. über das Observer-Pattern lösen, indem sich die Comboboxen als Observer des Datasets registrieren, dabei kommt dann eine Art "Data-Binding für Arme" heraus. Ist ein wenig aufwändiger, aber letzten Endes sauberer.

[mentaltec]

Hi,

meistens schick ich dem MainForm (Notify)-Messages, wenn so was gebraucht wird; die entsprechenden Datenstrukturen sollten eh nicht im MAinform deklariert werden

oder aber man übergibt dem Subform die Adresse einer Callbackfkt - das iss aber auch nur was für Puristen

mfg

[DeddyH]

Statt Messages könnte man auch Events verwenden.