Discussion :

[zorino]

Bonjour,

Je voudrais masquer l'ascenseur lorsque la liste affichée dans le TDBLookupComboBox est petite, savez-vous comment faire ?

Merci pour toute aide !
Z.

[youhibadelphi]

salut

Code :

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

1
2
TDBLookupComboBox1.enabled:=false;
TDBLookupComboBox1.visible:=false;

[zorino]

salut

Code :

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

1
2
TDBLookupComboBox1.enabled:=false;
TDBLookupComboBox1.visible:=false;

hmmmm... C'est vrai que je ne suis pas un cador, mais faut pas abuser !

Je veux que la liste soit visible, ouverte, mais SANS ascenseur quand il n'y a que 3 éléments et que j'ai positionné sa taille maxi à 8, par exemple...
Or, l'ascenseur est TOUJOURS visible (et donc inutile dans ce cas...).

[SergioMaster]

sans conviction , parce que non essayé voir ShowScrollBar

showscrollbar(TDBLookupComboBox1.handle,SB_VERT,false) ?

[zorino]

réponse d'un gourou de Delphi sur le sujet :

Forget it <g>. The dropdown of a TDBLookupCombobox is a TDBGrid in
disguise and that control is designed to always show a scrollbar,
although it may be disabled if the attached dataset does not have
enough records to fill the grid. It is not impossible to get rid of the
scrollbar, but it is not easy and may have unwanted side effects.

--
Peter Below (TeamB)

Donc moi j'obéis... J'oublie !

Merci quand même pour votre aide.

[youhibadelphi]

Salut
Je m’excuse je n’ai pas bien compris ta question, j’ai crus au début que tu veux masquer la liste.
Je te propose d’utiliser le composant combobox ou le composant dbcombobox.
Le code :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  With ComboBox1 Do
    begin
      if Items.Count>2 Then Style:=csDropDown
      Else Style:=csSimple;
    End;
end;

Bonne chance