Ver Mensaje Individual
  #1  
Antiguo 04-10-2008
Avatar de Juampa
Juampa Juampa is offline
Registrado
 
Registrado: ago 2004
Ubicación: Esperanza-Santa Fe-Argentina
Posts: 1
Reputación: 0
Juampa Va por buen camino
Post Eliminar beep en OnKeyDown al usar VK_RETURN

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.
Responder Con Cita