Verständnisfragen zu Forms

[ChrisTG]

Hallo zusammen,

ich habe folgende Ausgangslage, die ich irgendwie nicht komplett in einer Struktur abgebildet bekomme.
Es sind 2 Forms vorhanden. Standardmäßig soll das Programm ohne Forms laufen. Tritt ein bestimmtes Ereignis ein, soll erst eine Form eingeblendet werden. Dort hat man dann die Möglichkeit "Ja" oder "Nein" zu drücken. Beim Druck auf "Ja" schließt sich Form1 und Form2 wird geöffnet.
Und genau hier komme ich nicht weiter: Wie schaffe ich es, dass ich an einer Stelle alle Type und Konstantendefinitionen erstellen kann, man trotzdem aus den Methoden der Forms darauf zugreifen kann und Form1 sich selbst schließt und Form2 öffnet?
Bei den Ansätzen die ich versucht hatte, bin ich an dem Punkt gescheitert dass ich Unit1 in Unit2 referenzieren musste und eigentlich auch Unit2 in Unit1. Das geht natürlich nicht.
Wo ist mein Denkfehler?
Bin für jeden Tipp dankbar.

Gruß
Christian

[DeddyH]

Pack die Typen und Konstanten einfach in eine eigene Unit, die Du in beiden Formularunits einbindest.

P.S.: Willkommen in der DP

[Phoenix]

Zitat von DeddyH:

Pack die Typen und Konstanten einfach in eine eigene Unit, die Du in beiden Formularunits einbindest.

Yikes. Das ist natürlich komplett Ansichtssache, aber ich würde genau anders herum vorgehen (MVVM-Like).

Die beiden Forms haben genau Null logik. Noch nicht einmal Eventhandler.
Ein UIController würde beide Form-Units kennen.
Der UIController würde den Ja/Nein-Dialog instanziieren, sich dort auf das Event mit einem eigenen Handler attachen und dann das erste Form anzeigen.
Wenn dort Ja geclickt wurde, würde er das gleiche mit Form 2 machen, sich an die Eingabeevents hängen und ein ViewModel an das Form übergeben. Das Form 2 würde dann lediglich dafür sorgen, das das ViewModel korrekt mit den aktuellen Usereingaben gefüllt wird.

Wenn der User dann die Eingabe abschliesst, kann der UIController das Form zerstören, hat aber noch alle Eingaben im ViewModel parat und kann die entsprechend verarbeiten.

Der Code der Anwendung braucht somit nur eine Instanz des UIControllers und kann darüber alles abfackeln.

[baumina]

Delphi-Quellcode:

unit Main;

  ....

implementation

uses Unit1, Unit2;

....
Procedure ShowUnit1;
begin
  If Form1.ShowModal = mrOK then
  begin
    Form2.ShowModal;
  end; 
end;

end.

Delphi-Quellcode:

unit Unit1;

interface

uses
  ....

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

end.

Delphi-Quellcode:

unit Unit2;

interface

uses
  ....

type
  TForm2 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

end.

So in etwa?

[ChrisTG]

Hallo,

Danke für die Antworten!
Das Codebeispiel ist im Grunde genommen, was ich möchte.
Allerdings würde ich gerne den 1. Dialog nicht als Modaldialog öffnen, sondern den weiteren Ablauf per OnClick steuern.
Also Benutzer klickt Button auf Form1 -> Form1 schließt sich und es öffnet sich Form2.
Ist das so möglich?

[baumina]

Delphi-Quellcode:

unit Main;

   ....

implementation

uses Unit1;

 ....
Procedure ShowUnit1;
begin
  Form1.Show;
end;

end.

Delphi-Quellcode:

unit Unit1;

interface

uses
   ....

type
   TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
   private
     { Private-Deklarationen }
   public
     { Public-Deklarationen }
   end;

var
   Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure Unit1.Button1Click(Sender: TObject);
begin
  Form2.Show;
  Close;
end;

end.