Einzelnen Beitrag anzeigen

Benutzerbild von Back2Code
Back2Code

Registriert seit: 6. Feb 2012
Ort: Deutschland
272 Beiträge
 
Delphi XE7 Professional
 
#5

AW: Problem bei meinem Loginsystem & der Hauptunit

  Alt 24. Feb 2012, 08:51
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...
  Mit Zitat antworten Zitat