Diriger les infos d'un clavier vers divers TEdit

Bonjour à toutes et à tous,

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

Code:

---

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:

---

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.

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:

---

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:

---

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.

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 ;)