FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Cita:
saludos FerJavRec |
#2
|
|||
|
|||
Cita:
Un saludo. |
#3
|
|||
|
|||
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. |
#4
|
||||
|
||||
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 .... |
#5
|
|||
|
|||
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. |
#6
|
||||
|
||||
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 |
|