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