Eliminar el beep en el evento OnKeyPress de un Edit

Posted 06 January 2009 - 05:06 PM

• Back to top

Posted 06 January 2009 - 05:20 PM

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    Key:= #0;
end;

• Back to top

Posted 06 January 2009 - 05:22 PM

Asi:

delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    Key:= #0;
end;

Y así eliminamos el sonido pero aún capta el ENTER ? 

• Back to top

Posted 06 January 2009 - 05:23 PM

¿Tan sencillo?, ¡Hostia! , gracias seoane .

Saludos.

• Back to top

Posted 06 January 2009 - 05:24 PM

Y así eliminamos el sonido pero aún capta el ENTER ? 

Bueno, acuerdate que el Enter en un Edit es NO funcional

Salud OS

• Back to top

Posted 06 January 2009 - 05:29 PM

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    // Pasa el foco a otro componente
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
      // Pasa el foco a otro componente
      Key:= #0;
  end;
end;

• Back to top