警告音？を消す方法は？

あー 2007-02-04 22:24:07 No: 24776

Editに入力された内容を、キーボードのエンターを押した時に空にする場合
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = Char(VK_RETURN) then Edit1.Clear;
end;
とすると、エンターを押す度にｗｉｎｄｏｗｓの確認音？というか警告音が
毎回鳴ります。煩わしいので警告音を無くしたいんですけど何かいい方法はないですか？

かみづ 2007-02-04 23:07:25 No: 24777

Key := #0;を追加したらどうでしょう。