Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
24. Feb 2012
Hmmm... daß Form3 deine MainUnit sein soll ist eher ungewöhnlich. :roll:
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.
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
24. Feb 2012
...Form3 ist doch das LoginFenster ? :gruebel: Welche neue Form ? Schreibe mal die Formnamen und die Verwendung dazu. Ein kleiner Ablauf (wie du dir das vorstellst) wäre auch nicht verkehrt.
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
24. Feb 2012
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 :oops:)
procedure TForm3.Button1Click(Sender: TObject);
begin
if (edit1.Text= pwd) and (edit2.Text= usr) then
begin
Caption:=('Correct password');...
Forum: Object-Pascal / Delphi-Language
Delphi
by haentschman,
24. Feb 2012
Moin...
beim Ablauf der Versuche machst du es doch auch. Warum nicht auch bei richtigem Paßwort ?
procedure TForm3.Button1Click(Sender: TObject);
begin
if (edit1.Text= pwd) and (edit2.Text= usr) then
Caption:=('Correct password');
Close;
else
Caption:=('Wrong password');