TEdit erzeugt beim verlassen mit CR immer einen Ping-Sound

[Magnitudo]

Hallo,

wenn ich in ein TEdit-Feld klicke und die Eingabe dann mit Return beenden möchte,
ertönt immer dieser Ping-Sound. Gibt es eine Möglichkeit den Ping auszuschalten ?
Ist auf die Dauer nervig

Grüße
Thomas

[DeddyH]

Ich nehme an, Du benutzt das KeyPress-Event, um den Fokus weiterzuschalten. Innerhalb dessen kannst Du Key einfach auf #0 setzen, dann sollte Ruhe herrschen.

[baumina]

Nimm nicht KeyDown, sondern KeyPress, dann müsste das Problem behoben sein und wie Deddy schon sagte, setze den Key auf #0 zurück.

[Magnitudo]

Vielen Dank für den Tipp Detlef !
Funktioniert perfekt Auch mit OnKeyPressed.

Grüße
Thomas

[himitsu]

Der Grund:
http://docwiki.embarcadero.com/Libra...rol.OnKeyPress

Zitat:

Wenn Sie den Parameter Key auf #0 setzen, wird die weitere Verarbeitung dieser Botschaft verhindert.

[sh17]

Oder man entfernt es aus der Warteschlange

Delphi-Quellcode:

var
  Mgs : tagMsg;
begin
  PeekMessageW(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE);

[himitsu]

Zu spät, das Ereignis ist bereits raus, da es gerade jetzt verarbeitet wird, in genau diesem Moment.

[sh17]

Zitat von himitsu:

Zu spät, das Ereignis ist bereits raus, da es gerade jetzt verarbeitet wird, in genau diesem Moment.

Wie auch immer, es funktioniert