Hallo Entwicklerforum,
ich bin neu hier und möchte mich gerne mit einem aktuellen Problem an euch wenden. Ich arbeite mit RadStudio 2009 Pro. Gegeben sind:
1. Eine public deklarierte Procedure zur Auswertung der Passworteingabe:
2. Ein Button-Ereignis:
3. Ein Tastaturereignis im Editfeld für die Anmeldung:
Betätige ich nun im Programm den Button zur Bestätigung, funktioniert alles einwandfrei. Drücke ich im Anmelden-Editfeld jedoch auf Enter (#13), passiert nichts. Setze ich einen Haltepunkt auf die erste Zeile der Procedure "EingabenAuswerten", kann ich beim Debuggen aber ganz deutlich sehen, daß diese Procedure nach Drücken von Enter im Editfeld angesprungen wird. Ich verstehe das nicht ...
ich bin neu hier und möchte mich gerne mit einem aktuellen Problem an euch wenden. Ich arbeite mit RadStudio 2009 Pro. Gegeben sind:
1. Eine public deklarierte Procedure zur Auswertung der Passworteingabe:
Code:
... public { Public-Deklarationen } PROCEDURE EingabenAuswerten(Sender: TObject); ... implementation {$R *.dfm} PROCEDURE TFormUser.EingabenAuswerten(Sender: TObject); VAR ... BEGIN ... END;
Code:
procedure TFormUser.BitBtn_PassClick(Sender: TObject); begin EingabenAuswerten(Sender); end;
Code:
procedure TFormUser.Edit_UserKeyPress(Sender: TObject; var Key: Char); begin IF Key <> #13 THEN EXIT; Key := #0; {Sound unterdrücken} EingabenAuswerten(Sender); end;
Comment