Verständnisfragen zu Forms

[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.

[p80286]

@Phoenix
Wow, das ganze bitte mal in Zeitlupe.
Könntest Du das bitte einmal an einem Beispiel verdeutlichen?
Ich muß zugeben, daß ich so gut wie nichts verstanden habe.

Gruß
K-H

[Phoenix]

Zitat von p80286:

@Phoenix
Wow, das ganze bitte mal in Zeitlupe.
Könntest Du das bitte einmal an einem Beispiel verdeutlichen?

So grob in Pseudocode (ich hab Delphi seit Jahren nicht mehr angefasst und schreibe eigentlich nur noch Webanwendungen in C# und JavaScript):

Code:

method GetUserInput() // wird aus dem normalen Code heraus aufgerufen:
begin
  var ctlr := new UIController();
  ctlr.OnInputFinished := InputFinished;

  ctlr.GetInput();
end;

method InputFinished(sender, eventArgs)
begin

   // controller wieder aufräumen
   var ctlr = sender als UIController;
   ctlr.Dispose();
 
   // benutzereingabe verarbeiten:
   var input := (eventArgs as UserInputEventArgs).Model;
   ...
end;


// Klasse UIController:

using Form1, Form2; // Form 1 und Form 2 sind *strunzdoof* und geben nur ihre Events nach draussen. Sonst haben die absolut keine eigene Logik, so wie sich das für MVVM gehört

method GetInput() : passenderDatentyp
begin

  var dialog = new Form1();
  dialog.OnButtonClick := Form1ButtonClicked;
  dialog.Show();

end;

method Form1ButtonClicked(sender, eventArgs)
begin

  // form 1 wegräumen
  var form1 := sender as Form1;
  form1.Hide();

  var result := form1.ViewModel; // Datentyp des Viewmodels. Für Form1 liefert das nur zurück, welcher Button gedrückt wurde
  form1.Dispose();

  // optional je nach Eingabe weitermachen, EventArgs ist hier ein eigener Typ
  if (result.OKClicked)
  begin

    var model = new Form2ViewModel();

    var form2 := new Form2(model);
    form2.OnUserInputReady := Form2UserInputReady;
    form2.Show();
  end;

end;

method Form2UserInputReady(sender, eventArgs)
begin

  var form2 := sender as Form2;
  form2.Hide();
  var model = form2.Model;   // Formularstatus abrufen:
  
  form2.Dispose();

  // event auslösen das die Benuztereingabe fertig ist
  OnInputFinished(self, new UserInputEventArgs(model));
end;

Wie man sieht ist das ganze Eventgesteuert gehalten. Wenn die Formulare ggf. auf einem anderen Thread laufen blockiert da also nichts.

Mit einer leichten Anpassungen (hineingeben einer FormFactory in den UIController) kann man sogar die ganze Geschichte am Ende sauber Unit-Testen. Anstelle der echten Factory die die echten Formulare erzeugt würde dann eine TestFactory reingegeben, die beliebige Test-Eingaben auf die Models schreibt und dann die events auslöst. Die echten Formulare hingegen können auch mit Test-Models bestückt und getestet werden.

Der UIController muss lediglich die Formulare (besser noch: Nur Interfaces der Formulare) kennen.

So schreibt man entkoppelten und Testbaren Code. Klar kann man auch alles in Form1.OnButton1Click reinbolzen, aber eine saubere Anwendungsarchitektur dankt es einem hinterher, wenn man das nicht macht.