Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   thread transparente (https://www.clubdelphi.com/foros/showthread.php?t=29139)

piccolo2101 13-01-2006 09:17:20

thread transparente
 
Hola,

me gustaría saber como puedo hacer que un thread de una aplicación capture los eventos de pulsación de teclas en cualquier formulario de esta sin que los eventos lleguen a los propio formularios y que el thread sea, en caso de ciertas teclas, el que propague dicho evento como si él no existiera.
Bueno me explico algo mejor. Tengo una aplicación con varios formularios que se muestran de forma simultánea y cada uno tiene implementado los eventos de pulsació de teclas para realizar acciones. Hay teclas que actuan de forma específica según la ventana (el escape cierra la ventana que tiene el focus), mientras que otras hacen cosas generales (el ctrl abre y cierra un micrófono). La idea es hacer un thread que atrape las pulsaciones de las teclas durante la ejecución de mi programa vea si es una tecla general, como el ctrl y realice la acción sin que los formularios se enteren, o que si es de carácter específico, como el escape, sea capaz de reproducir el evento para que sea atrapado por los OnKeypress, OnKeyUp, y demás de la función en concreto.

Un saludo y gracias.

Neftali [Germán.Estévez] 13-01-2006 10:08:55

Hay una forma sencilla de hacer esto, sin necesidad de un Thread; Puedes utilizar el componente TApplicationEvents que viene con Delphi.

Coloca en tu formulario principal un componente de éstos (paleta addicional).
En el evento OnShortCut programa lo siguiente:

Código Delphi [-]
var
  ShiftState: TShiftState;
begin

  // Estado de las teclas Ctrl, Shift,Alt,...
  ShiftState := KeyDataToShiftState(Msg.KeyData);

  // Buuscar combinaciones necesarias...
  if (ShiftState = [ssCtrl]) and (Msg.CharCode = VK_F5) then begin
    MessageDlg('CTRL+F5', mtInformation, [mbOK], 0);
  end
  else if (ShiftState = []) and (Msg.CharCode = VK_F5) then begin
    MessageDlg('F5', mtInformation, [mbOK], 0);
  end
  else if ...

  end;

piccolo2101 13-01-2006 10:22:27

Ok, gracias. Le echaré un vistazo a ver si resulevo algo. Lo que no me ha quedado claro es como se pasa el evento de pulsación de tecla al formulario que tiene el focus en caso de que éste componente no debe hacer nada con esa combinación de teclas.

Un saludo y gracias

Neftali [Germán.Estévez] 13-01-2006 10:45:42

Cita:

Empezado por piccolo2101
...es como se pasa el evento de pulsación de tecla al formulario que tiene el focus en caso de que éste componente no debe hacer nada con esa combinación de teclas.

Es que en ese caso lo que debes hacer es no programar las teclas aquí; De esa forma las genéricas van en éste componente y el resto cada formulario captura las suyas.


La franja horaria es GMT +2. Ahora son las 10:09:17.

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