ListView - l'index de la colonne de l'item sélectionné ?

Bonjour

J'utilise le composant TlistView en multi colonnes avec gestion de l'événement <onSelect> qui me renvoie l'item actif.

J'ai beau éplucher l'aide en ligne et tout le toutim, je ne parviens pas à récupérer l'index de la colonne de l'item. Je cherche un truc du genre <item.col>

Cette propriété existe-t-elle ?
Pour illustrer, voici la procédure en question :

Code:

---

1 2 3 4 5

procedure TForm1.lstResultsSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin wordlight(item.data); end;

---

TListView.GetHitTestInfoAt : THitTests est un début

Consulte le code de GetHitTestInfoAt dans ComCtrls, tu verras que cela utilise en interne un LVHITTESTINFO, je pense que iSubItem est très intéressant à mon avis !

Plusieurs versions possibles !
Tu as X et Y, tu as aussi TListColumn.Width, une petite boucle et tu trouves la colonne

J'avais effectivement envisagé d'utiliser l'information x et y mais j'espérais trouver plus précis. Merci pour ton aide ! :ccool:

X et Y sont fournis par Windows, lui aussi les utilisent en permanence pour savoir où tu cliques !
Faut juste jouer avec ScreenToClient pour avoir les bonnes coordonnées

J'ai utilisé MCHITTESTINFO pour le TMonthCalendar pour récupérer des zones hors de la grille de calendrier comme la zone des mois comme MCHT_CALENDARDATE ou MCHT_TODAYLINK pour affiner le OnClick

Le LVHITTESTINFO est conçu pour cela !
Si j'ai le temps, je le ferais dans mon application à bordel (en C++Builder)

EDIT

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

//--------------------------------------------------------------------------- void __fastcall TVCLManipForm::ListViewManipColumnDblClick(TObject *Sender) { // LVHITTESTINFO LstClicInfo; LstClicInfo.pt = ListViewManipColumn->ScreenToClient(Mouse->CursorPos);   int RowIdx = ListViewManipColumn->Perform(LVM_SUBITEMHITTEST, 0, (LPARAM)&LstClicInfo); int ColIdx = LstClicInfo.iSubItem; // 0 = main, 1..n = sub if (RowIdx >= 0) { if (ColIdx > 0) ShowMessage(ListViewManipColumn->Items->Item[RowIdx]->SubItems->Strings[ColIdx - 1]); // 0 based else ShowMessage(ListViewManipColumn->Items->Item[RowIdx]->Caption); } }

---

Merci pour le tuyau, Shai.
C'est quoi ton application à "bordel", tu projettes d'ouvrir une maison close ?

... je sors ...