FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problema con el GetasyncKeyState
Hola gente de la comunidad delphi, tengo un problema con este código
Código:
procedure TForm1.Timer1Timer(Sender: TObject); begin if (GetasyncKeyState($70)<0) then // Tecla F1 // begin Label1.Caption:= 'Activado'; end else begin Label1.Caption:= 'Desactivado'; end end; end. Yo e estado haciéndolo así pero no funciona Espero que me ayuden, gracias por adelantado |
#2
|
||||
|
||||
No creo que sea necesario un timer, supongo que podrás hacerlo en la pulsación de la propia tecla.
|
#3
|
|||
|
|||
Como lo puedo hacer ?
|
#4
|
|||
|
|||
Creo que la forma más sencilla es mediante un TAction:
- Colocas un componente de tipo TActionList en el formulario. - Al componente ActionList le adicionas una acción (Action1, por ejemplo). - A esa acción le asignas como "ShortCut" la tecla F1 (propiedad ShortCut de la acción). - En el evento Execute de la acción escribes un código similar a esto:
|
|
|
|