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/