Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #8  
Antiguo 07-04-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 31
Lepe Va por buen camino
Le daré las gracias a Neftali de tu parte....

Lo que recibes por msg.WParam es el GlobalAtom que has definido, no la tecla ni los modificadores, (al menos en delphi es así, garantizado). Yo haciendo caso omiso a la ayuda de delphi hago lo siguiente:

Código Delphi [-]

procedure registrarTeclas:
begin
    registerhotkey(self.Handle, 0, 0, 70);
    registerhotkey(self.Handle, 1, 0, 71);
    registerhotkey(self.Handle, 2, 0, 72); 

// del 70 al 72 es el código ascii que quiero capturar
// el valor 0, 1, 2  son los globalAtom que tu usas, en definitiva:
// números que no se repitan,
end;

procedure Unregister;
begin
  unregisterhotkey(self.Handle, 0);
  unregisterhotkey(self.Handle, 1);
  unregisterhotkey(self.Handle, 2);
// quito el registro a las 3 teclas.
end;

procedure TForm1.WndProc(var Msg: TMessage);
  if msg.msg = wm_hotkey then
  begin
    case msg.WParam of
      0: // se recibe el codigo 70
      1: // se recibe el codigo 71
      2: // se recibe el codigo 72
    end; // case
  inherited WndProc(Msg); // para que lo reciban las demás aplicaciones.
end;

Digo que hago caso omiso a la ayuda, porque allí dice que use GlobalAtom, obviamente si hay otras aplicaciones que estan usando ganchos, podría ser que 0, 1 y 2 estuviesen ya cogidos y no me deje registrar la tecla.

Obviamente tu código está mejor, porque usas GlobalAtom que te garantiza un número que no existe en el sistema, pero claro, tienes que guardar el GlobalAtom para poder relacionarlo despues en el procedure AppMessage.

Yo probé pasándoles números enteros, 0, 1, 2 y funcionó. Eso sí deben ser números que no se repitan, ya no recuerdo si deben ser consecutivos o no....

Para el tema de modificadores ctrl, alt y shift, va así:
shift = 4
ctrl = 2
Alt = 1

De tal forma que si quieres "ctrl + alt" pues suma sus valores y pones un 3.
Esto equivale a MOD_CONTROL + MOD_ALT
Si no quieres parámetros pon un cero.

Es raro que te funcione con Ctrl + O, porque segun explicas... no veo que esté bien implementado, hazlo de la forma que te comento y nos cuentass

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
capturar el video de dos camaras simultaneamente? Carlos Arevalo Varios 1 06-04-2006 01:49:07
Tmessage Hotkey hacia aplicacion externa vtdeleon OOP 4 24-09-2005 17:23:25
capturar hotkey cahosoft Varios 2 31-01-2005 17:17:04
Cuantas conexiones de red??? Nasio Varios 1 31-05-2004 12:05:06
Actualizar simultaneamente oracle-mysql Igna Oracle 3 23-02-2004 18:36:59


La franja horaria es GMT +2. Ahora son las 18:59:14.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi