Pitido al pulsar Enter
 

Hola a todos.

Tengo un código para que al pulsar la tecla Enter en un TEdit funcione como si fuera el tabulador y pase al siguiente edit. Funciona bien, pero el ordenador da un pitido que no he sabido como quitar:

Código Delphi [-]
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_RETURN then
  begin
    Key:=0; // he intentado con esto pero no funciona
    Perform(CM_DialogKey,VK_TAB,0);
  end
end;

En otro código similar pero utilizando el evento onKeyPress puedo quitar el pitido con Key:=#0, pero necesito usar onKeyUp para capturar también la tecla de control.

¿Sabeis alguno como quitar este pitido?

Gracias por adelantado. Saludos, :cool:

SystemParametersInfo(SPI_SETBEEP,0,NIL,SPIF_SENDWININICHANGE);

Eso desactiva el beep de error de windows. Puede que te sirva.

Genial Investment. Lo he puesto en el evento onCreate del form y funciona de maravilla.

Muchas gracias. Saludos, :cool: