affecter un hint pour chaque colonne d'un Tlistbox

Bonjour

j'aimerai affecter un hint pour chaque colonne d'un Tlistbox.

Est ce possible ?

Merci

Bonjour, ta question me semble un peu curieuse vu qu'un TListBox ne possède qu'une seule "colonne". :koi:

Desolé :oops: je voulais dire Lignes :mrgreen:

j'aimerai affecter un hint pour chaque Lignes d'un Tlistbox.

ce n'est pas évident, lors du OnMouseMove par exemple, tu utilise la fonction ItemAtPos (conjointe avec l'API GetCursorPos), pour déterminer quel est l'item survolé, et tu change le Hint du TListBox avec la valeur du Data (un pointeur sur record ou un objet) par exemple ...

Salut

un truc comme cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.ListBox1MouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) ; var lstIndex : Integer ; begin with Sender as TListBox do begin lstIndex:=SendMessage(Handle, LB_ITEMFROMPOINT, 0, MakeLParam(x,y)) ; if (lstIndex >= 0) and (lstIndex <= Items.Count) then Hint := Items[lstIndex] else Hint := '' end; end; end.

---

@+ Phil

La TListView le fait (en ViewStyle vsList).
Tu peux peut etre l'utiliser, ou alors regarder comment elle le gere pour reproduire le comportement