Quitar sonido de error al pulsar Enter

[madiazg]

Hola, ¿alguien puede indicarme si es posible quitar el sonido de error cuando se pulsa ENTER en un TEdit?

El código que tengo es el siguiente:

procedure TFormAnaglifo.EditBrilloKeyPress(Sender: TObject; var Key: Char);
begin
  if ( StrScan('0123456789.-',Key) <> nil ) or
     ( Key = Char(VK_BACK) ) or ( Key = char(13) ) then { BackSpace Key }
  begin
    if (key = char(13)) and (EditBrillo.Text <> '') then
    begin
      ScrollBarBrillo.Position := StrToInt(EditBrillo.Text);
      EditBrillo.Visible := False;
    end;
  end else
    Key := #0;
end;

Saludos...
Miguel Angel
http://imagen3d.site88.net/

[dec]

Hola,

Se ha tratado en estos foros más de una vez. Se trata de averiguar si es la tecla ENTER la que "dispara el evento", y, si es así, retornar en la variable "Key" el valor "0".

[madiazg]

Efectivamente, esa era la solución. Simplemente añadiendo Key := #0

procedure TFormAnaglifo.EditColorRojoKeyPress(Sender: TObject; var Key: Char);
begin
  if ( StrScan('0123456789.-',Key) <> nil ) or
     ( Key = Char(VK_BACK) ) or ( Key = char(13) ) then { BackSpace Key }
  begin
    if (key = char(13)) and (EditColorRojo.Text <> '') then
    begin
      ScrollBarRojo.Position := StrToInt(EditColorrojo.Text);
      EditColorRojo.Visible := False;
      Key := #0;
    end;
  end else
    Key := #0;
end;

Gracias.
Saludos...
Miguel Angel
http://imagen3d.site88.net/