Ver Mensaje Individual
  #1  
Antiguo 03-05-2013
Subliminalz Subliminalz is offline
Registrado
NULL
 
Registrado: abr 2013
Posts: 7
Reputación: 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