Quitar sonido de error al pulsar Enter

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