Discussion :

[BigBenQ]

bonjour à tous !
ma question est celle ci : peut on mettre du texte sur plusieurs lignes dans un seul item d'un TListBox ? et si oui comment ?

Merci d'avance

[LadyWasky]

Oui

1) Mettre la propriété style de la Listbox à lbOwnerDrawVariable
2) Coder l'évènement OnMeasureItem :

Code :

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

1
2
3
4
5
procedure TForm1.ListBox1MeasureItem(Control: TWinControl; Index: Integer;
  var Height: Integer);
begin
  Height:=13*(index+1);
end;

3) Ajouter les éléments de la liste par code (en Run-time) :

Code :

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

1
2
3
 ListBox1.Items.Add('machin 1');
  ListBox1.Items.Add('truc 2');
  ListBox1.Items.Add('bidule 3');

Petit question-réponse :
- Pourquoi celà ne marche t-il pas quand on a mis des éléments en DesignTime ?
- Parce que ils ont déjà été "mesurés"

-Est ce possible de le faire quand même avec des éléments mis au moment de la conception ?
- oui, peut-être, mais bonjour le code...

Bon dev