Computerhilfen.de Logo
Forum
Tipps
News
Frage stellen

Delphi: Werte einer InputBox abfragen

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);
...

« Letzte Änderung: 19.09.03, 16:32:31 von isocam »

Antworten zu Delphi: Werte einer InputBox abfragen:

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

klick mal hier

« Letzte Änderung: 19.09.03, 20:13:26 von SanMarius »

Okay... mal ganz simpel:
Mach dir ein neues Formular (TForm2) welches 1 TEdit Komponente und 2 Button (Ok, Abbruch) enthält;
Das ganze sieht dann aus wie eine normale inputbox.
Ruf dieses formular über TForm1 auf (Befehl: Form2.ShowModal;)
Der ok-button kriegt als modalresult mrOk, der abbruch-button mrCancel.
Dann kannst du vom Form1 ganz simpel abfragen, ob das eingegebene passwort im Form2 Edit richtig ist oder nicht.

PROCEDURE TForm1.FormCreate;
BEGIN
     Form2.ShowModal;
     IF ModalResult = mrOK THEN
        BEGIN
        {Passwordüberprüfung, bla, bla...}
        END
     ELSE {also wenn mrCancel auftritt}
        BEGIN
        {Abbruchprozedur oder was auch immer}
        END;
END;

Das ist jetzt nur sehr simpel gehalten, zu beachten wäre, dass bei FormCreate nicht einfach Close verwendet werden kann, also wäre es besser, diese Prozedur gleich in die .DPR Datei des Projektes zu implementieren...


« Delphi 6 Enterprise - Simples Netzwerksignal senden delete rows??VBA »
 

Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!

Fremdwörter? Erklärungen im Lexikon!
Internet-Zugriffsprogramm
Ein Internet-Zugriffsprogramm, auch Browser genannt, stellt Internetseiten für den Benutzer dar. Am bekanntesten ist der Microsoft Internet Explorer, gefolgt vom kos...

Programm
Siehe Software...

Quellcode
Ein Quellcode, auch als Quelltext bekannt, bezeichnet den unkompilierten Programm-Code einer Software. Quell- oder Programm-Code ist der auch für Menschen lesbare Co...