![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() 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:
|
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|