Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Enter in Edit gibt warnton


CenBells - Di 12.11.02 21:20
Titel: Enter in Edit gibt warnton
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


CenBells - Di 12.11.02 21:35
oh, habe es schon behoben trotzdem danke an alle


Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
 
procedure TMyForm.vEditBeschreibungKeyPress(Sender: TObject; 
  var Key: Char); 
begin 
  if key = #13 then begin
    FocusControl(vEditBetrag); 
    key = #0;
  end;
end;


Gruß
Ken


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!