Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Proyecto AjpdSoft: Foros

AjpdSoft :: Ver tema - Se me oye "Beep" al pulsar Intro - KeyPress Delphi
Foros de discusión Buscar Perfil FAQ Iniciar sesión
Information Se me oye "Beep" al pulsar Intro - KeyPress Delphi

Publicar nuevo tema Responder al tema
Foros de discusión » Borland Delphi, Codegear Delphi .Net   
Ver tema anterior :: Ver tema siguiente
AutorMensaje
varios
Magnífico usuario


Registrado: Oct 10, 2006
Mensajes: 2092

Asunto: Se me oye "Beep" al pulsar Intro - KeyPress Delphi Responder citando

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?
MensajePublicado:
Dom Jul 01, 2007 5:33 pm
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Se me oye "Beep" al pulsar Intro - KeyPress De Responder citando



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;
MensajePublicado:
Dom Jul 01, 2007 5:39 pm
Top of PageVer perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT - 1 Horas
Publicar nuevo tema Responder al tema
Foros de discusión » Borland Delphi, Codegear Delphi .Net  

Cambiar a:  
Key
  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
Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+