Hi
ich bekomme immer Fehler, wenn ich versuche Form2 so aufrufe

markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
if passwort='123' then
Form2.ShowModal();
end;

Form1 (MainForm) ist ein Login Fenster, wo man das Passwort eingibt
also wenn der User das Passwort vorher eingegeben hat und gespeichert, hat Form1
kein Sinn mehr. Deswegen wird zuerst überprüft on das Passwort richtig ist, wenn ja, dann wird Form2 aufgerufen sonst wird For1 (Mainform) angezeigt, damit der User das Passwort eingibt.

Wie kann ich das am besten machen ?

Auf jedenfall nicht im Create-Event. Besser vor dem Öffnen von Form1

Tipp: Nicht das LogIn-Fenster sondern das HauptFenster deiner Anwendung sollte die MainForm sein.

Mfg

Die MainForm ist das Hauptfenster . Das Problem ist, dass Form2 zum Zeitpunkt des Erstellens von Form1 (MainForm) noch gar nicht erstellt wurde. Deshalb reicht ein einfaches ShowModal nicht mehr aus.

Mit Hauptfenster war aber jetzt nicht die MainForm gemeint, sondern das "zentrale" Fenster der Anwendung. Konnte mich nur gerade nicht richtig ausdrücken

Wie wärs mit OnShow?

Wie wärs mit OnButtonBestaetigenClick? Wenn ich mich einloggen will, muss ich ja im Login erstmal Benutzernamen und Kennwort eingeben. Das kann ich im OnCreate des Login-Formulars ja noch gar nicht.

Hallo, im Anhang mal eine Möglichkeit, eine Login Form anzuzeigen

Prinzip: Login Form zeigen, falls Login ok Mainform zeigen.
Der Hauptcode ist in der dpr Datei zu finden.

zusammenfalten · markieren

Delphi-Quellcode:

var
  LoginForm: TfrmLogin;

begin
  Application.Initialize;

  // Login Fenster erzeugen
  with TfrmLogin.Create(Application) do
  try
    // Login Fenster anzeigen
    ShowModal;
    // Falls nicht OK Anwendung beenden
    if not (ModalResult = mrOK) then Exit;
  finally
    // Free wird auch ausgeführt bei Abbruch der Anwendung
    Free
  end;

  // Hauptform starten falls Login erfolgreich
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmLogin, frmLogin);
  Application.Run;

end.

Damit mein Ziel oder mein Problem bei euch klar wird, habe ich eine Skizze erstellt

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
// else oder error Fenster sind nicht erwünscht
begin
if edit1.text <> edit2.Text
then
begin
Form1.Show;
end;
if (password <> '123') and (edit1.text = edit2.Text) then
begin
Form2.Show;
end;
if (password = '123') and (edit1.text = edit2.Text) then
begin
Form3.Show;
end;
end;

Der Code soll bearbeitet werden, da mansch mal 2 Forms nach dem Klick auf Button1 (Start) aufgerufen werden !!!

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if edit1.text <> edit2.Text then
    begin
      Form1.Show;
    end
  else if (password <> '123') then
    begin
      Form2.Show;
    end
  else
    begin
      Form3.Show;
    end;
end;