Bonjour
j'aimerai affecter un hint pour chaque colonne d'un Tlistbox.
Est ce possible ?
Merci
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".![]()
Desoléje voulais dire Lignes
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 :
@+ Phil
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.
La TListView le fait (en ViewStyle vsList).
Tu peux peut etre l'utiliser, ou alors regarder comment elle le gere pour reproduire le comportement
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager