Discussion :

[ChPr]

Bonjour à toutes et à tous,

J'ai un clavier virtuel dont toutes les touches envoient leurs valeurs dans un même évènement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TBase.Btn0Click(Sender: TObject);
begin
  // procédure déclenchée par tous les boutons du pavé numérique
  S:= S + TBoutonCoinRond(Sender).Titre;
 end;

J'ai plein de TEdit et je voudrais maintenant que cette information soit dirigée vers le TEdit qui a le focus. C'est idiot, mais je n'arrive pas à voir comment faire.

La solution que j'ai trouvée me semble bâtarde. Quand je donne le focus à un TEdit, je lui affecte une valeur "ChoixEditeur" et je redirige le clavier vers lui selon la méthode suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TBase.Btn0Click(Sender: TObject);
begin
  // procédure déclenchée par tous les boutons du pavé numérique
  S:= S + TBoutonCoinRond(Sender).Titre;
    case ChoixEditeur of
  -1: txCode.Text:= S;
   0: txMdP.Text:= S;
   1: txMdPA.Text:= S;
   2: txMdPN.Text:= S;
   3: txMdPC.Text:= S;
   // ...
    end;
end;

Il doit y avoir mieux.

Cordialement.

Pierre.

[ChPr]

Bon, j'ai trouvé une autre solution, je vais voir si elle me convient mieux.

Après avoir déclaré une variable "EditSelect : TEdit", pour chaque TEdit, je dirige son évènement "Click" vers une même procédure dans laquelle j'écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TCfgParams.txInfoClick(Sender: TObject);
begin
  EditSelect:= TEdit(Sender); // EditSelect pointe vers le TEdit "cliqué"
  S:= TEdit(Sender).Text; // La variable S est initialisée à la valeur de ce TEdit
end;

Maintenant, dans la méthode de mon clavier, j'écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TBase.Btn0Click(Sender: TObject);
begin
  // procédure déclenchée par tous les boutons du pavé numérique
  S:= S + TBoutonCoinRond(Sender).Titre;
  EditSelect.Text:= S;
end;

Ça me va mieux. Il y a peut-être mieux.

Cordialement.

Pierre.

[Andnotor]

Le principe d'un clavier (physique ou tactile) est de remplir le buffer de clavier sans se préoccuper de la destination, c'est l'OS qui s'en charge.

sous Windows, les commandes sont soit keybd_event, soit SendInput. L'avantage du deuxième est de pouvoir envoyer une suite de commandes ininterrompue sans interférence possible du clavier physique.

A noter que les boutons doivent évidemment être de type TSpeedButton et ne pas prendre eux-mêmes la focalisation. Sinon ils seront récepteur des leurs propres commandes