Selection par programme d'un Item Combobox

Version imprimable

26/07/2009, 08h43
Tleconte

Selection par programme d'un Item Combobox

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.
26/07/2009, 09h56
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:

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.
26/07/2009, 10h21
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.
26/07/2009, 10h53
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

Merci bien,

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

Code:

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;