FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Usas teclado numérico.
Gente, diseñé una calculadora y quiero que al apretar el teclado numérico, se presionen los botones de la calculadora. Se que es en el evento "on key press" pero no se como definirlo. Alguien podría ayudarme?
|
#2
|
||||
|
||||
Hola emii89.
Te conviene usar el evento OnKeyDown y usar un case para evaluar la tecla presionada: Código:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of VK_NUMPAD0: { tecla 0 del teclado numérico } VK_NUMPAD1: { tecla 1 del teclado numérico} ... VK_NUMPAD9: { tecla 9 del teclado numérico } VK_ADD { '+' del tec. numérico } ... end; end; En ejemplo usé el evento OnKeyDown del Form por que no especificas quién es el que debe disparar el evento. Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
||||
|
||||
Hola emi89, añadiendo a lo que dice ecfisa, debes poner a True la propiedad KeyPreview de tu formulario y para que se ejecute lo que tienes en tus Bontones:
Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#4
|
||||
|
||||
Como una duda un poco relacionada... con estos métodos ¿en el formulario se visualiza la presión del control button?
__________________
Herr Heins Faust |
#5
|
||||
|
||||
Hola Faust.
Si te referís a que el botón baje y suba como si se hubiera realizado un click con el mouse, no. Pero se puede escribir algo de código para hacerlo: Código:
procedure TForm1.HacerClick(Sender: TButton); begin with (Sender as TButton) do begin Perform(WM_LBUTTONDOWN, MK_LBUTTON,0); Sleep(250); // un poco de espera para que se note... Perform(WM_LBUTTONUP, MK_LBUTTON,0); end; end; Código:
.... case Key of VK_NUMPAD0: HacerClick(Button0); VK_NUMPAD1: HacerClick(Button1); end; ... Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#6
|
||||
|
||||
Oh si, eso me hubiera servido hace un par de años, pero tomo nota para futuras aplicaciones... gracias ecfisa
__________________
Herr Heins Faust |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Bloqueo de mayúsculas y del teclado numérico | paldave | Varios | 2 | 05-09-2007 05:23:14 |
activar teclado numérico arrancar xp | joanajj | Varios | 6 | 11-11-2005 13:13:15 |
¿Que navegador de Internet usas? | jmariano | Debates | 34 | 03-09-2005 20:45:59 |
¿Usas el Starteam? | Alfredo Soler | Varios | 1 | 08-09-2004 17:21:00 |
Coma en teclado numérico | javiermorales | Varios | 4 | 30-07-2003 13:13:41 |
|