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 ...
Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !![]()
Attention Troll Méchant !
"Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
L'ignorance n'excuse pas la médiocrité !
L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
Il faut avoir le courage de se tromper et d'apprendre de ses erreurs
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
Partager