Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-05-2013
Subliminalz Subliminalz is offline
Registrado
NULL
 
Registrado: abr 2013
Posts: 7
Poder: 0
Subliminalz Va por buen camino
Capturar la tecla Enter en una Notebook, sin tener que presionar Shift o Ctrl.

Hola muchachos(as), tengo un pequeño problema, se trata sobre la tecla Enter, en una computadora normal, el código funciona de maravilla, pero en una Notebook tengo que acompañar la tecla Enter con la tecla Shift, logre, aunque no se si fue un logro, hacer que trabaje con la tecla Ctrl, en vez de Shift, pero es lo mismo... el código que uso tambien captura otras teclas (números,+,-,*,/)...

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin case key of
      VK_NUMPAD1:FormClick(Button6);
      VK_NUMPAD2:FormClick(Button7);
      VK_NUMPAD3:FormClick(Button8);
      VK_NUMPAD4:FormClick(Button9);
      VK_NUMPAD5:FormClick(Button10);
      VK_NUMPAD6:FormClick(Button11);
      VK_NUMPAD7:FormClick(Button12);
      VK_NUMPAD8:FormClick(Button13);
      VK_NUMPAD9:FormClick(Button14);
      VK_DECIMAL:FormClick(Button15);
      VK_NUMPAD0:FormClick(Button16);
      VK_ADD:FormClick(Button2);
      VK_SUBTRACT:FormClick(Button3);
      VK_MULTIPLY:FormClick(Button4);
      VK_DIVIDE:FormClick(Button5);
      VK_RETURN:FormClick(Button1); {Enter}
      end;


Lo que trato de lograr, es que funcione de modo normal, presionando solo la tecla Enter, estaba viendo otro hilo, otro tema similar, con el mismo caso, pero dieron muchas soluciones, las cuales aplique, pero al igual que en ese Tema ninguna funciono, trabaje el mismo código en una computadora normal, una desktop, y descubri muchas cosas interesantes y si funciona directamente la tecla Enter, pero en una Notebook no funciona de manera directa...

Espero alguien me ayude, muchas gracias de antemano... tambien intente con Key:#13, otra forma que intente... pero ninguna...
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
saber ruta al presionar Ctrl +C DOS994 C++ Builder 11 23-12-2012 22:55:49
''Capturar la tecla Enter en un Edit'' Basi Varios 5 12-09-2012 23:58:13
Cambiar la tecla TAB por la tecla ENTER al pasar de controles dec Trucos 0 30-06-2006 13:43:03
ctrl+v / shift+insert subzero Varios 4 29-07-2005 17:15:40
grafica como la de xp al presionar ctrl+alt+del click Gráficos 2 06-05-2004 19:40:23


La franja horaria es GMT +2. Ahora son las 23:57:34.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi