Edit und Enter Fehlermeldungsgeräusch

[turboPASCAL]

Das Signal soll eigentlich anzeigen, das kein Zeilenumbruch erlaubt ist. (Einzeiliges Edit Feld)

Akustisches Signal bei Edit - Feld ausschalten:

Delphi-Quellcode:

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