Discussion :

[messahel]

bonjour à tous;
j'ai des contacts dans un TCheckListBox et je veux afficher l'adresse du contact dans la propriété Hint quand la souris passe au-dessus de l'item
j'ai cherché dans le net avant de poster ici mais sans résultat
merci beaucoup de m'aider.

[Lung]

Quelque chose comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.CheckListBoxMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  nIndex: Integer;
begin
  nIndex := CheckListBox.ItemAtPos(Point(X, Y), True);
  if nIndex > -1 then
    CheckListBox.Hint := CheckListBox.Items[nIndex]
  else
    CheckListBox.Hint := '';
end;

[messahel]

parfait, merci beaucoup Lung.