Clavier visuel Again

Question

Bonjour,



Je cherche &#224; developper un clavier visuel (comme celui fourni avec windows XP) compos&#233; uniquement

des touches du NumPAD .

-------------------------------------------------------------------------------------------

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, AppEvnts;



type

  TVisualNumPad = class(TForm)

    ApplicationEvents1: TApplicationEvents;

    NumPad: TButton;  

    procedure ApplicationEvents1Activate(Sender: TObject);

    procedure NumPAD0Click(Sender: TObject);

  private

    { D&#233;clarations priv&#233;es }

  hForm1, hNext : HWND;

  public

    { D&#233;clarations publiques }

  end;



var

  VisualNumPad: TVisualNumPad;



implementation

{$R *.dfm}

procedure TVisualNumPad.ApplicationEvents1Activate(Sender: TObject);

begin

   // Handle du clavier visuel

   hForm1 := Application.Handle;



   // handle de la prochaine appli. active  

   hNext:= GetWindow(hForm1,GW_HWNDNEXT);



end;



procedure TVisualNumPad.Button1Click(Sender: TObject);

begin



  setForeGroundWindow(hNext);

  // envoie du message touche NUMPAD0 press&#233;e &#224; la fenetre plac&#233; au top du z-order

  Keybd_event(VK_NUMPAD0,0,0,0);

  Keybd_event(VK_NUMPAD0,0,KEYEVENTF_KEYUP,0);

end;

end;

end. 

--------------------------------------------------------------------------------------



Mais c'est tr&#232;s d&#233;sagrable le changement d'activation clavier visual / Appli receptrice.

Comment faire pour que l'appli receptrice reste tjrs active quand on click sur une touche 

du clavier visuel  ( comme le fait le clavier visuel d'XP) ?



Merci d'avance pour vos r&#233;ponses.



Ps : Aspirine non fournie

Matt 261 · Answer

Il y a une source qui a été déposée sur DelphiFr sur un clavier visuel avec un hook clavier. Pas la peine de créer un autre sujet tu pouvais continuer à la suite de ton premier.

  Matt

Clavier visuel Again

1 réponse

Votre réponse

Discussions similaires