Discussion :

[Jcpan]

Bonjour

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

Est ce possible ?

Merci

[Aka Guymelef]

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

[Jcpan]

Desolé je voulais dire Lignes

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

[ShaiLeTroll]

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 ...

[anapurna]

Salut

un truc comme cela :

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.

@+ Phil

[guillemouze]

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