Asunto: Se me oye "Beep" al pulsar Intro - KeyPress Delphi
Tengo una aplicación que estoy desarrollando en Delphi. Tengo un pequeño problema, en uno de los componentes que tengo (TEdit), en la propiedad KeyPress de este componente, tengo el siguiente código:
Código:
procedure TformInicioSesion.txtContrasenaKeyPress(Sender: TObject;
var Key: Char);
begin
if key = #13 then
bIniciarClick(Self);
end;
El problema es que cuando el usuario pulsa INTRO en este componente, funciona bien (se ejecuta "biniciarclick" pero se oye un beep de Windows (un pitido), que es un poco molesto ¿hay alguna forma de que esto no ocurra?
Publicado:
Dom Jul 01, 2007 5:33 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Se me oye "Beep" al pulsar Intro - KeyPress De
Anuncios
varios escribió:
Tengo una aplicación que estoy desarrollando en Delphi. Tengo un pequeño problema, en uno de los componentes que tengo (TEdit), en la propiedad KeyPress de este componente, tengo el siguiente código:
Código:
procedure TformInicioSesion.txtContrasenaKeyPress(Sender: TObject;
var Key: Char);
begin
if key = #13 then
bIniciarClick(Self);
end;
El problema es que cuando el usuario pulsa INTRO en este componente, funciona bien (se ejecuta "biniciarclick" pero se oye un beep de Windows (un pitido), que es un poco molesto ¿hay alguna forma de que esto no ocurra?
Para quitar este sonido es suficiente con desactivar la pulsación de intro, para ello puedes añadir una línea con este código: "key := #0". En tu caso quedará de la siguiente forma:
Código:
procedure TformInicioSesion.txtContrasenaKeyPress(Sender: TObject;
var Key: Char);
begin
if key = #13 then
begin
bIniciarClick(Self);
key := #0;
end;
end;
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A