Discussion :

[Tleconte]

Bonjour,

Je dois utiliser une application sur écran tactile.
Je cherche donc à créer un clavier virtuel pour renseigner un combobox en utilisant tout de même l'AutoComplete de ce dernier.
J'ai essayé en simulant les touches sans succès
keybd_event(50,0,1,0); //touche enfoncé
keybd_event(50,0,2,0); //touche relevé

Je rencontre vraisemblablement le problème du focus sur le combobox que je ne parviens pas à résoudre.
Y à t'il une autre solution pour rechercher l'index dans la liste à partir d'une valeur d'un Edit et le transmettre à Itemindex?
Si vous aviez une info, je vous en remercie d'avance.

Thierry.

[Fenix01]

Salut,

J'espère avoir compris ^^. Tu veux à partir de la valeur d'un Edit modifier l'itemindex d'un combobox.
Voilà ce que j'utiliserai si le combobox est dans une application externe :

Code :

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

1
2
 
SendMessage(ComboBox1.Handle,CB_SETCURSEL,StrToInt(Edit1.Text),0);

ComboBox1.Handle est l'adresse du combobox. Si il est dans une application externe utilise findwindow et findwindowex pour retrouver son handle.

Si tu ne comprends pas mon code, vas lire la doc pour PostMessage/SendMessage et CB_SETCURSEL ca va t'éclaircir.

[Tleconte]

Salut,

Merci pour ta réponse,
En fait le combobox serait dans la même appli voir même sur la même fiche.
Ce que je souhaite en faite s'est sur un Onchange d'un édit rechercher dans la liste du combobox la valeur qui commence par le text de l'édit (exemple Toto pour 'T' dans l'édit ...) puis retourner l'index de la liste du combobox pour la valeur Toto dans l'ItemIndex du combobox.
J'espère avoir été suffisamment explicite...

Merci encore.

[skywaukers]

Bonjour,

il suffit d'affecter une valeur à la propriété ItemIndex du Combobox pour que l'élément soit sélectionné. A partir de là, si tes éléments sont triés alphabétiquement, il suffit que tu parcours les items jusqu'à en trouver 1 alphabétiquement supérieur ou égal à ce qu'a saisit l'utilisateur.

@++
Dany

[Tleconte]

Merci bien,

J'ai donc effectivement fait une recherche dans un tableau préalablement chargé de la liste et champs adjacent.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
procedure TFm_S_Alpha.Affect_Cbx;
var Idx, IdxItem: integer;
begin
  //Recherche position dans tableau
  Idx := 0;
  IdxItem := Cbx_Col.ItemIndex;
  //Boucle sur le tableau d'intem et sortie si équivanlence de début de texte
  While  idx < Nbr_Prod do
    begin
      if Tab_Prod[Idx].NomPRec  >= Saisie_New then
        begin
          Cbx_Col.ItemIndex := Idx;
          Break;
        end;
      Idx := Idx+1;
    end;
 
  //Prise en compte de la dernière lettre uniquement si utilisée
  if Cbx_Col.ItemIndex <> IdxItem then Saisie := Saisie_New;
 
  Edit_saisie.text := Saisie;
end;