Bonjour à tous.
Le code suivant fonctionne parfaitement bien sous 2000, (ie, comportement normal d'un ComboBox, on clique sur la flèche et la liste s'affiche) :
mais sous XP la liste s'affiche et se referme aussitôt !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 procedure TForm1.FormCreate(Sender: TObject); var i : integer; begin for i := 7 to 22 do begin cbb.Items.Add(Format('%2.2d', [i]) + '.00'); cbb.Items.Add(Format('%2.2d', [i]) + '.15'); cbb.Items.Add(Format('%2.2d', [i]) + '.30'); cbb.Items.Add(Format('%2.2d', [i]) + '.45'); cbb.DropDownCount := cbb.Items.Count; end; end;
Faut garder le clic appuyé sur la flèche pour pouvoir choisir une valeur, et une fois la valeur choisie, la flèche garde le look « enfoncé »...
Testé sur 2 machines différentes...
Une idée, quelqu'un ?
Merci d'avance,
--
jp
Partager