mehrer Formulare schließen

[Tarry]

Hi,
ich hatte vor ein par Tagen einen Passwortgenerator geschrieben, welcher auch gut funktioniert, allerdings möchte ich jetzt einen Passwortmanager "drumherum schreiben"...
Mein (erstes) Problem ist allerdings, dass ich noch nie mit zwei oder mehr Formularen gearbeitet habe, was ich jetzt machen möchte, hab auch alles soweit geschafft, allerdings scheitere ich daran, dass wenn ich Formular A schließe auch gleichzeitig Formular B geschlossen werden soll (bekomme immer einen Stack Überlauf). Aber wenn der Benutzer auf das "x" bei Formular B klickt soll dieses nur Invisible werden und Formular A erscheinen.

Ich postet mal meinen bisherigen Quellcode:

Formular A heißt bei mir 'Hauptfenster'
Formular B 'Generator'

Quellcode von Hauptfenster:

Delphi-Quellcode:

procedure THauptfenster.Button1Click(Sender: TObject);
begin
Hauptfenster.Visible := False;
Application.CreateForm(TGenerator, Generator);
Generator.Visible := True;
end;

procedure THauptfenster.FormActivate(Sender: TObject);
begin
// Generator.Visible := False;
end;

procedure THauptfenster.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Generator.Caption := 'Schließen';
Generator.Visible := True;
Generator.Destroy;
// Generator.Close;
// Hauptfenster.Close;
end;

Quellcode von Generator:

Delphi-Quellcode:

procedure TGenerator.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
if Generator.Caption = 'Passwortgenerator'
then begin
       CanClose := False;
       Generator.Visible := False;
       Hauptfenster.Visible := True;
     end
else CanClose := True;
end;

Danke schonmal im Voraus, ich hoffe eu ist mein Problem klargeworden^^

[BullsEye]

Zitat von Tarry:

Aber wenn der Benutzer auf das "x" bei Formular B klickt soll dieses nur Invisible werden und Formular A erscheinen.

Mach das einfach so:

Delphi-Quellcode:

...
Form1.Show;
Form2.Hide;

Zitat von Tarry:

allerdings scheitere ich daran, dass wenn ich Formular A schließe auch gleichzeitig Formular B geschlossen werden soll (bekomme immer einen Stack Überlauf).

Delphi-Quellcode:

..
Form1.Close;
Form2.Close;

Das ist ganz simpel und ich find das besser als wenn du das mit diesem "visible := true" etc machst
Ich hoffe das hilft dir

[Progman]

Und niemals Destroy direkt aufrufen, da nimmt man Free

[dominikkv]

Zitat von Progman:

Und niemals Destroy direkt aufrufen, da nimmt man Free

oder FreeAndNil(Instanz);

[Tarry]

Zitat von BullsEye:

Mach das einfach so:

Delphi-Quellcode:

..
Form1.Close;
Form2.Close;

Das ist ganz simpel und ich find das besser als wenn du das mit diesem "visible := true" etc machst
Ich hoffe das hilft dir

Hab ich ja als erstes versucht, aber auch dann hab ich einen Stack Überlauf bekommen, ich hänge mein Projekt einfach mal an, vielleicht liegt der Fehler auch bei ner ganz anderen Stelle.

[Progman]

Ich habs mal umgearbeitet. Du musst schlichtweg das Hauptformular auch als Hauptformular in den Projekt-Optionen einstellen. Das andere kannst du dem Code entnehmen.
Übrigens, woher der Stacküberlauf kam, hab ich auf die Schnelle auch nicht rausgefunden

[Tarry]

Zitat von Progman:

Ich habs mal umgearbeitet. Du musst schlichtweg das Hauptformular auch als Hauptformular in den Projekt-Optionen einstellen. Das andere kannst du dem Code entnehmen.
Übrigens, woher der Stacküberlauf kam, hab ich auf die Schnelle auch nicht rausgefunden

D A N K E !
Da hab ich's mir ja mal echt zu kompliziert gemacht
Danke.