Home » Tipps & Tricks » Komponenten » TRichEdit/TMemo/TEdit » Beep-Signal in TEdit unterdrücken

Beep-Signal in TEdit unterdrücken

Wenn Sie in einem Edit-Feld auf die Return-Taste drücken, ertönt, vorrausgesetzt die Funktion ist in Windows aktiviert, ein Signalton.Um diesen Signalton zu unterdrücken, fangen Sie in dem Edit-Feld die Return-Taste ab. Dies können Sie im OnKeyPress-Ereignis tun:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Char(VK_RETURN) then
    Key := #0;
end;