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