Quitar sonido de error al pulsar Enter

[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/