Also ich hab ja hier schon nen Programm, aber da haut das nich hin, wenn ich das Passwortformular zeige im OnCreate! Es geht bei mir nur im OnShow Modus, wobei, das wie du schon sagtest immer kommt, wenn das Formular eingeblendet wird.
Man könnte aber noch eine 2. Varible einbinden, anhand der überprüft wird, ob das Passwort bereits richtig eingegeben wurde.
Hauptformular:
Delphi-Quellcode:
public
Passed: Booloean;
end;
procedure TMainFrm.FormShow(Sender: TObject);
begin
if not Passed then
PasswordFrm.ShowModal;
end;
Passwortformluar:
Delphi-Quellcode:
procedure TPasswordFrm.AcceptBtnClick(Sender: TObject);
begin
if PasswordEdit.Text = 'Passwort' then
begin
Accepted := True;
MainFrm.Passed := True;
Close;
end
else
begin
ShowMessage('Das Passwort ist ungültig!');
PasswordEdit.Clear;
end;
end;