Form von Unit aus kontrollieren/steuern

[Fisti]

Hallo zusammen

Ich habe eine Form die ich als GUI benutze um einen Testablauf mit 3-5 Schritten darzustellen. Nun möchte ich diese Form für unterschiedliche Tests benutzen, was auch ganz verschiedene Abläufe gibt.

Denn ganzen Code in dieser einen Form ist sehr unschön und schwer zu pflegen, darum wollte ich die Form nur noch als GUI benutzen und die Testabläufe extern in einer Unit haben.

Mein erster Gedanke war eine Unit die den ganzen Grundablauf eines Testes handelt. Sprich die Form aufruft und diese auch steuert.
Steuert: Weiter/Zurück Button, ev. Textfelder auslesen

Nun stehe ich aber an. Wenn ich aus der Unit raus diese Form kreiere

Delphi-Quellcode:

Fmyform := TTestFormFrm.Create(nil);

wie kann ich dann nachher auf die Form zugreifen, sprich wie bekomme ich in der Unit mit, wann der Benutzer weiter klickt??


Ich hoffe jemand von euch kann mir helfen, beschäftige mich doch scho einige Zeit mit diesem Problem. Vieleicht bin ich auch völlig auf dem Holzweg und es würde auf eine andere Weise viel einfacher gehen.

Bin um jeden Tipp dankbar.

Danke im Voraus.
Gruss Christian

Ps: verwende Delphi 7

[Nersgatt]

Befasse Dich mit Events. Dann kannst Du in Form ein Event "WeiterClicked" defnieren und in der Unit darauf reagieren.

Gruß,
Jens

[nahpets]

Hallo,

wie ist das gedacht?

Deine Units machen irgendwas, dann wird das Formular angezeigt und Du wartest auf eine Benutzeraktion. Abhängig von dieser Benutzeraktion soll irgendetwas geschehen (weitermachen, wiederholen, abbrechen, was auch immer).
Wenn Du das Formular in diesem Fall mit ShowModal aufrufst, könntest Du jedem Button über ModalResult einen anderen Wert zuweisen (hier sind Integerwerte möglich, also mehr, als der Objektinspektor als Vorschläge zur Verfügung stellt).
In den Units kannst Du dann z. B. über

Delphi-Quellcode:

  case FortschrittsDialog.ShowModal of
    1 : //
    2 : //
    ...
  else
    // Defaultaktion
  end;

abfragen, was der Benutzer gemacht hat.
Dies funktioniert jedoch nicht, wenn das Formular permanent angezeigt werden soll.

Eine andere Möglichkeit wäre, in den Units den Dir bekannte Buttons... auf dem Formular Ereignisse zuzuweisen, die in der Unit definiert sind, so kann jede Unit ihre eigenen Ereignisroutinen mitbringen und das Formular führt die entsprechende Funktion aus.

Delphi-Quellcode:

// in Deiner Unit definiert
procedure myEnde(Sender: TObject);
begin
  Fmyform.Close;
  // und irgendwas weiteres an Code
end;
...
  Fmyform         := TTestFormFrm.Create(nil);
  Fmyform.OnClick := myEnde;
  // u.s.w. für jeden Button, auch OnEdit, OnClick, OnExit für Eingabefelder... sind möglich, 
  // also alles das, was Du auch in der Formularunit machen könntest

[Fisti]

vielen dank nahpets, hat mich schon ein stück weiter gebracht.

gruess christian