Discussion :

[gamez]

salut

jai une Tlistbox avec differents elements, jaimerai que quand je mets le pointeur de la souris dessus il y ait une etiquette (la propriete hint) qui affiche le texte placé sur l'index surlequel se trouve la souris.

mettre du texte en statique c faisable mais je sais pas comment m'y prendre pour changer le contenu du 'hint' en fonction de la position où je me trouve sur les lignes de la Tlistbox.

si qqun a une idée, je suis tout ouïe

merci

[Merlin]

Tu utilises l'événement OnMouveMove de la listbox, puis dans l'event tu calcules la ligne où se trouve le curseur avec la méthode ItemAtPos de la listbox... il ne reste plus qu'à changer le Hint en fonction de la ligne :-)

[gamez]

salut

je viens de tester, pour le itematpos cest effectivement ce quil me fallait par contre pour levenement OnMouseMove y a un probleme cest que
quand je suis sur une ligne du TListBox il maffiche bien letiquette

par contre quand je me deplace vers une autre ligne il ne "raffraichit" pas le contenu de letiquette et je dois sortir du ListBox pour y revenir pour le voir changer

(en fait le rafraichissement du hint se fait quand je clic sur le tlistbox, le deplacement de la souris a linterieur ny suffit pas)

[gamez]

voici le code que je fais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer);
 
var APoint:TPoint;
 
begin
 
  APoint.X :=X; APoint.Y :=Y;
  application.HintPause:=0; // tps pr que l'etiquette apparaisse 
                                        // (ici instantané)
  application.HintHidePause:=5000; //duree d'affichage de letiquette
  listbox1.Hint:=inttostr(listbox1.itematpos(apoint,false));
 
end;

pourtant si j'ajoute un memo1.Lines.Add(inttostr(i)); en faisant incrementer i à chaque passage dans la procedure OnMouseMove on voit bien le memo qui se rempli au fur et à mesure que la souris bouge par contre pour lactualisation du hint...rien à faire

[cpdump]

Si tu utilise un Tlistview à la place d'un tlistbox, c'est très facile à faire: event OnInfoTip.

[gamez]

je veux bien essayer, mais apparement cest pas aussi simple d'ajouter des elements dedans.
avec la TListBox un listbox.items.add('element ajouté') suffit
alors que là un listview.items.add n'attends pas de parametres
jvois pas comment faire pour ajouter un element, et l'aide nest pas super claire pour le debutant que je suis

du coup la TListBox est plus pratique mais le seul hic c'est le pb exposé plus haut.

en fait si je fais un comparatif avec delphi, lorsqu'on balade la souris sur le code que lon developpe on voit apparaitre des hint a chaque fois qu'on se place sur un mot clé particulier, sans pour autant sortir du code et y revenir pour que le hint change, c'est un peu ca que je voudrai.
ils ont surement dut utiliser un OnMouseMove mais la difference c que eux ca marche et moi nan lol

[Pedro]

Salut
c'est justement ListView.Items.Add qui renvoie le paramètre...

Code :

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

1
2
3
4
5
6
7
 
var t:tlistitem;// Je crois que c'est ça...
begin
  t:=ListView1.Items.Add;
  t.Text:='Hop'; // C'est peut-être Caption...
  t.ImageIndex:=0;
end;

Ce code crée un nouvel item dans ListBox1 avec le premier icone de la TImageList associée et "Hop" comme texte...

Bonne chance

[gamez]

je viens de le faire, en effet ca remplit bien le t listview mais y a 2 choses qui ne collent pas avec mon appli:
les chaines de caracteres sont coupées et compléetées par des points de suspensions ' ... ' automatiquement
et chaque entrée ne s'ajoute pas lune au dessous de lautre mais l'une à coté de lautre.
je navais pas ca avec la TListBox. peut etre y a til moyen de faire un traitement?

[Nono40]

Utilise un TListBox et la solution de Merlin.

Pour rafraichir, il suffit de demander manuellement l'affichage du Hint s'il change. Exemple ici sur un TStringGrid :
http://nono40.developpez.com/sources/source0035.html

[gamez]

wahouuuuuuuuuuuuuuu ton

Code :

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

Application.ActivateHint(Mouse.CursorPos);

est excellent !! merci beaucoup!!
ca marche niquel maintenant

et merci a tous de m'avoir proposé vos solutions.