FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
ayuda con las hotkey en delphi
que código hay poner para que una hotkey pare un timer, por ejemplo. Hace falta la función Getasynckeystate?
|
#2
|
||||
|
||||
Hola MCanuto y bienvenido a Club Delphi
Como a todos los que se inician te invitamos a que leas nuestra guía de estilo. Para tu caso creo que te puede servir capturar la tecla presionada en el evento OnKeyDown de tu form. En el ejemplo el TTimer es activado por la tecla F1 y desactivado por F2, pero podes elegir las que desees (busca por Virtual key codes en la ayuda de Delphi).
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
|||
|
|||
no veo ese evento no sé si será porque me baje un programa algo antiguo, tengo el Borland Delphi 7 no veo esa opción, que programa me recomendarías que tuviese todas las opciones?
|
#4
|
||||
|
||||
Cita:
En tiempo de diseño, hace lo siguiente:
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#5
|
|||
|
|||
Gracias, el código me funciono pero solo se activa o desactiva el timer si tengo la ventana del proyecto abierta y pulso la tecla, si tengo otra ventana abierta y pulso la tecla de activar o desactivar no hace nada
¿No habría alguna forma de solucionar eso? Un saludo. |
#6
|
||||
|
||||
Hola MCanuto.
Revisa en estos enlaces: Podes encontrar mas sobre la funcion aqui: RegisterHotKey. Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#7
|
|||
|
|||
Cita:
saludos FerJavRec |
#8
|
|||
|
|||
Cita:
Un saludo. |
#9
|
|||
|
|||
Saludos ecfisa.
Seguí el primer link que me dejaste y decía que había que instalar los componentes JEDI, yo al intentar instalarlos me da error, porque no tengo el rad studio ni ninguno de los que requiere el JEDI, tengo el Borland Delphi 7. Ahí decían que con JEDI se intala el componente HotKeyManager, pero ni rastro del RegisterHotKey que mencionabas. |
#10
|
||||
|
||||
Hola MCanuto.
Cita:
Cita:
En cuanto a el componente HotKeyManager que comenta dec no lo conozco, pero tal vez se refiera a este. Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#11
|
|||
|
|||
Hola ecfisa.
Problema resuelto, use este código: Código:
unit Unit2; interface uses Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure HotKey(var Message: TMessage); message WM_HOTKEY; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Timer1Timer(Sender: TObject); end; var Form1: TForm1; implementation {$r *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin RegisterHotKey(Handle, 111, 0, VK_F1); RegisterHotKey(Handle, 222, 0, VK_F2); end; procedure TForm1.HotKey(var Message: TMessage); begin case Message.WParam of 111: Timer1.Enabled := True; // F1 222: Timer1.Enabled := False; // F2 end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin UnregisterHotKey(Handle, 111); UnregisterHotKey(Handle, 222); end; procedure TForm1.Timer1Timer(Sender: TObject); begin Beep(1000, 100); end; end. Código:
procedure TForm1.Timer1Timer(Sender: TObject); begin Beep(1000, 100); end; Al final probé quitando esa línea y funcionó, no se si será importante. Saludos. |
#12
|
||||
|
||||
Hola MCanuto.
Me alegro que lo solucionaras, y muchas gracias por publicar como lo resolviste Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Uso de HotKey | Cecilio | Varios | 3 | 06-06-2014 15:23:09 |
Ayuda HotKey en DLL ... | NoxOner | API de Windows | 4 | 14-04-2009 19:34:19 |
Delphi - HotKey de aplicación externa | fdanielc | Lazarus, FreePascal, Kylix, etc. | 2 | 03-12-2008 20:12:11 |
ayuda usando solo la tecla ALT como hotkey | lostprophets | Varios | 2 | 21-01-2008 05:07:17 |
capturar hotkey | cahosoft | Varios | 2 | 31-01-2005 17:17:04 |
|