[JavierB]

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,