Problem bei meinem Loginsystem & der Hauptunit

[haentschman]

Moin...
beim Ablauf der Versuche machst du es doch auch. Warum nicht auch bei richtigem Paßwort ?

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
  if (edit1.Text= pwd) and (edit2.Text= usr) then
  Caption:=('Correct password');
  Close;
else
  Caption:=('Wrong password');
  trys := trys-1;
  if trys=0 then Close;
end;

- "Form3" entfernt
- Close hinzugefügt

[Back2Code]

Zitat von haentschman:

Moin...
beim Ablauf der Versuche machst du es doch auch. Warum nicht auch bei richtigem Paßwort ?

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
  if (edit1.Text= pwd) and (edit2.Text= usr) then
  Caption:=('Correct password');
  Close;
else
  Caption:=('Wrong password');
  trys := trys-1;
  if trys=0 then Close;
end;

- "Form3" entfernt
- Close hinzugefügt

Versteh nicht so wirklich was du mir damit sagen willst...

[haentschman]

Um eine Form zu schließen benutzt man den Befehl "Close". In deiner Anweisung if trys=0 then Close; hattest du ihn schon drin. Nur in der Abfrage ob Paßwort korrekt fehlte er.
...Ich sehe grade daß begin/end noch fehlt. (Koffeinmangel )

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
  if (edit1.Text= pwd) and (edit2.Text= usr) then
  begin 
    Caption:=('Correct password');
    Close;
  end
  else
  begin
    Caption:=('Wrong password');
    trys := trys-1;
    if trys=0 then Close;
  end;
end;

[Back2Code]

Zitat von haentschman:

Um eine Form zu schließen benutzt man den Befehl "Close". In deiner Anweisung if trys=0 then Close; hattest du ihn schon drin. Nur in der Abfrage ob Paßwort korrekt fehlte er.
...Ich sehe grade daß begin/end noch fehlt. (Koffeinmangel )

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
  if (edit1.Text= pwd) and (edit2.Text= usr) then
  begin 
    Caption:=('Correct password');
    Close;
  end
  else
  begin
    Caption:=('Wrong password');
    trys := trys-1;
    if trys=0 then Close;
  end;
end;

Soweit war ich ja schon die ganze Zeit... Ich möchte nach erfolgreichem eingeben des Passworts die neue Form öffnen lassen...

[haentschman]

Zitat:

und das Loginfenster sollte sich schließen

...Form3 ist doch das LoginFenster ? Welche neue Form ? Schreibe mal die Formnamen und die Verwendung dazu. Ein kleiner Ablauf (wie du dir das vorstellst) wäre auch nicht verkehrt.

[Angel4585]

War es nicht so, dass wenn Form3 das Hauptformular der Anwendung ist und man close aufruft, dass sich die Anwendung dann schliesst?

Ich mach sowas immer über modale Fenster:

Delphi-Quellcode:

function TLoginForm.TryLogin:Boolean;
begin
Result := ShowModal = mrYes;
end;

function TLoginForm.LoginClick(Sender: TObject);
begin
  if (edit1.Text= pwd) and (edit2.Text= usr) then
  begin
    Caption:=('Correct password');
    ModalResult:=mrYes;
  end
  else
  begin
    Caption:=('Wrong password');
    trys := trys-1;
    if trys=0 then ModalResult:=mrNo;
  end;
end;

Dann kann ich die Loginform an anderer Stelle schön verwenden:

Delphi-Quellcode:

with TLoginForm.Create() do
  try
    if TryLogin then
      begin
      //Show other Form      
      NewForm.Show; // Falls noch nicht erzeugt erst NewForm := TNewForm.Create() aufrufen
      end
    else
      begin
      //Go back or close App
      end;
  finally
    Free;
  end;

Alternativ kann man TryLogin auch statisch machen und TLoginForm dort drin erzeugen.

P.S.: Hab den Code jetz nirgends rauskopiert sondern wollte nur das Prinzip darstellen

[Back2Code]

Hier ein Screenshot

[Angel4585]

Kann es sein, dass du nur den Befehl "Form1.Show;" suchst? Einfach nach "Caption:=('Correct Password');"

[Back2Code]

Zitat von Angel4585:

Kann es sein, dass du nur den Befehl "Form1.Show;" suchst? Einfach nach "Caption:=('Correct Password');"

Jap.

Jetzt gehts

Delphi-Quellcode:

    Caption:=('Correct password');
    Form1.Show;
    Form3.Hide;

[haentschman]

Hmmm... daß Form3 deine MainUnit sein soll ist eher ungewöhnlich.

versuche mal folgenden Ablauf:
1. MainUnit ist Form1 (automatisch erzeugt)
2. LoginForm ist Form3 (automatisch erzeugt)
3. Im OnShow der MainUnit (Form1) die Form3 modal anzeigen (ShowModal)
4. im OnShow Rückgabewert auswerten
5. je nach Rückgabe weiter im Programm oder Mainform ggf. schließen.