Discussion :

[Magnus]

Bonjour,

Sur un formulaire j'ai divers composants dont :
- 2 TDateTimePicker,
- 2 TBitBtn et
- un TCombobox qui est invisible (ne me demandez pas pourquoi car je reprends une application existante).

Toujours est-il, lors de la validation du formulaire, la propriété ItemIndex de cette TCombobox invisible est différente selon que j'ai effectué ma saisie avec la souris ou avec le clavier.
En effet, avec la souris : CBMode.ItemIndex = -1 et avec le clavier CBMode.ItemIndex = 0

Quelqu'un peut-il m'expliquer ce phénomène ?
Merci par avance.

[qi130]

1/ pas grand-chose à voir avec les bases de données

2/ difficile de te répondre dans l'absolu sans disposer du code de la Form. Quantité d'événements peuvent être programmés (OnKey... OnMouse...etc...) dans lesquels une ligne peut modifier l'index de la CB.

à toi de plonger dans le code

[Magnus]

1/ pas grand-chose à voir avec les bases de données

c'est tout-à-fait vrai => j'ai modifié complètement mon message d'origine car je pensais que le problème venait d'ailleurs...

2/ difficile de te répondre dans l'absolu sans disposer du code de la Form. Quantité d'événements peuvent être programmés (OnKey... OnMouse...etc...) dans lesquels une ligne peut modifier l'index de la CB.

là encore j'aurais dû donner plus d'infos :
j'ai fait un grep sur 'CBMode' et voici le code de la seule procédure qui modifie l'index de la combobox. Information supplémentaire : cette procédure est appelée pour chacun des 2 TDateTimePicker sur l'événement OnCloseUp :

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
24
25
26
27
28
29
begin
  with DMSphere.qryDataFetch3 do
  begin
    SQL.Clear;
    SQL.Add('SELECT DISTINCT REG_DEVSAI '+
            'FROM REGLEMENTS '+
            'WHERE REG_DATENCAIS BETWEEN :d1 AND :d2 '+
            'AND REG_ACTIF = ''O'' ');
    ParamByName('d1').AsDate := Trunc(DTPDu.Date);
    ParamByName('d2').AsDate := Trunc(DTPAu.Date + 1);
    Open;
    First;
    CBMode.Items.Clear;
    while not Eof do
    begin
      CBMode.Items.add(FieldByName('reg_devsai').AsString);
      Next;
    end;
  end; // with
  for i := 0 to CBMode.Items.Count - 1 do
  begin
    if CBMode.Items[i] =
       DMSphere.GetAlphaNumeric1_PARAM_INT(ADMINISTRATOR_USER, INTCODE_DEVISE_REFERENCE) then
    begin
      CBMode.ItemIndex := i;
      Exit;
    end;
  end;
end;

Merci encore si tu passes par là petit génie.

[Magnus]

Ok : j'ai trouvé.

Le problème venait du choix de l'événement OnCloseUp des DateTimePicker : avec la souris cet événement se produit, ce qui n'est pas le cas lorsque l'on modifie les dates avec le clavier (donc lors de saisie de dates avec le clavier la procédure n'était pas appelée).

Conclusion : j'ai changé l'événement au profit de OnChange qui est appelé dans les 2 modes.

Merci à qi130 de m'avoir mis sur la voie.