Form2 bei Form1 Oncreate aufrufen !

[Delphiturbo]

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

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 ?

[mkinzler]

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

[Fussball-Robby]

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

Mfg

[DeddyH]

Die MainForm ist das Hauptfenster :mrgreen: . 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.

[Fussball-Robby]

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

[Larsi]

Wie wärs mit OnShow?

[DeddyH]

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.

[toms]

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.

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.

[Delphiturbo]

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

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

[DeddyH]

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;

[Delphiturbo]

Danke ! :)

Du hast else verwendet aber ich habe überliegt, es ist ok
Ich muss aber in Form2 (logIN Form) kein else verwenden.
Das ist gut gegen Hacker. Ich möchte keine Meldung anzeigen lassen, wenn der
User ein falsches Passwort eingibt

In Form2 möchte ich folgendes machen :

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
password : String;
begin
Edit1.Text:=password;
if password = '123' then
Form3.Show
//else showmessage('bitte geben Sie das Passwort noch einmal ein !');
end;
end;

[RavenIV]

Ich hoffe nun mal, dass die Zeile
if password = '123' then
nur zu Demozwecken so geschrieben ist.

Sonst macht Dein Hinweis auf Hacker nämlich keinen Sinn.

[Delphiturbo]

Zitat:

Zitat von RavenIV

Ich hoffe nun mal, dass die Zeile
if password = '123' then
nur zu Demozwecken so geschrieben ist.

Sonst macht Dein Hinweis auf Hacker nämlich keinen Sinn.

was kann ich noch verstecken ? "if" ? :mrgreen:

aber womit kann ich es ersetzen ?
Mit case ?