Hallo Leute.
Ich habe ein TEdit feld und möchte mit einem Druck auf enter zur nächsten Control springen.
Das mache ich mit folgendem Code.
Quelltext
1: 2: 3: 4: 5: 6:
| procedure TMyForm.vEditBeschreibungKeyPress(Sender: TObject; var Key: Char); begin if key = #13 then FocusControl(vEditBetrag); end; |
Der Code funktioniert auch einwandfrei.
Aber wenn ich nun ein enter in dem Edit feld drücke, ertönt auch der Standartwarnton von windows.
Wahrscheinlich, weil Enter in edits nicht zugelassen ist. Wie kann ich nun aber verhindern, das der ton ausgegeben wird?
Danke und Gruß
Ken