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.