Eliminar beep en OnKeyDown al usar VK_RETURN

[Juampa]

Nota: no es una pregunta en si misma, porque de alguna manera lo solucioné.

Hace un tiempo escribí un programa del que no me di cuenta de una característica: El siguiente código hace que suene un beep en Windows

Código Delphi [-]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key=VK_RETURN then Button1.Click;
end;

Usaba Windows sin sonidos y de ahí que este detalle se me había pasado... es espantoso ese comportamiento.

El "ruidito" lo termine sacando implementando lo siguiente:

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key=#13 then Key:=#0
end;

Espero que le sirva a alguien. Disculpen si ya figuraba en el foro, no lo pude encontrar en mis búsquedas.

[dec]

Hola,

Se agradece el aporte. No obstante, sabe que existe un apartado para trucos en el ClubDelphi.

Lo digo porque, en mi opinión bien podrías haberlo publicado ahí. Bueno, todavía estás a tiempo.