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^^