TEdit erzeugt beim verlassen mit CR immer einen Ping-Sound

[sh17]

Oder man entfernt es aus der Warteschlange

Delphi-Quellcode:

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