Hallo,
Ich habe ein Programm, in dem über eine InputBox ein Passwort abgefragt wird. Man kann dort Ok (zum prüfen) oder abbrechen drücken. Das Programm akzeptiert beim Drücken von "abbrechen" nicht, weil ja der Inhalt des Eingabefeldes nicht dem gesuchten Passwort entspricht. Wie kann ich den Druck der Cancel-Taste abfragen, um somit aus dem Abfragefenster und aus dem ganzen Programm zu kommen?
Hier der Code:
...
procedure TForm1.FormCreate(Sender: TObject);
var passwort:String;
var pw:String;
begin
passwort:='buber';
Repeat
InputQuery('Einloggen', 'Geben Sie das Benutzerkennwort an!', pw);
IF pw<>passwort
THEN Application.MessageBox('Zugang verweigert','Einloggen',16);
Until pw=passwort;
Application.MessageBox('Login erfolgreich','Einloggen',64);
...
isocam Gast |