Indice d'une colonne d'un TListView
Résolu
BlouMan
Messages postés
93
Date d'inscription
mardi 15 mars 2005
Statut
Membre
Dernière intervention
2 juillet 2007
-
18 avril 2005 à 15:31
cs_Kenavo Messages postés 702 Date d'inscription vendredi 21 mars 2003 Statut Membre Dernière intervention 1 octobre 2009 - 19 avril 2005 à 11:36
cs_Kenavo Messages postés 702 Date d'inscription vendredi 21 mars 2003 Statut Membre Dernière intervention 1 octobre 2009 - 19 avril 2005 à 11:36
A voir également:
- Le sujet
- Sql ajouter une colonne dans un select - Forum SQL
- Vba parcourir une colonne ✓ - Forum VBA Office (Excel, Word ...)
- Parcourir tte les lignes d'une feuille excel en vba ✓ - Forum Visual Basic
- Selectionner la derniere cellule non vide d'une colonne excel vba ✓ - Forum Visual Basic 6
- Renommer une colonne sql server ✓ - Forum SQL
4 réponses
cs_Kenavo
Messages postés
702
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
1 octobre 2009
5
19 avril 2005 à 09:00
19 avril 2005 à 09:00
Salut,
En voilà un vrai problème à la c.. ! J'avais résolu comme suit (sytle = vsReport):
procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Colonne, Ligne,
HScroll,
j
: Integer;
begin
HScroll := GetScrollPos(ListView1.Handle, SB_HORZ);
Ligne
:= ListView1.GetItemAt(X, Y).Index;
Colonne
:= -1;
j := X + HScroll; // position X "réelle" dans le tableau
repeat
inc(
Colonne
);
j := j - ListView1.Columns[i].Width;
until j < 0;
Case Colonne of
......
end;
HScroll :=
GetScrollPos(ListView1.Handle, SB_HORZ);
est d'ailleurs le réponse à ta deuxième question.
Ken@vo
<hr size="2" width="100%">
Code, Code, Codec !
http://www.pourflorenceethussein.org/
En voilà un vrai problème à la c.. ! J'avais résolu comme suit (sytle = vsReport):
procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Colonne, Ligne,
HScroll,
j
: Integer;
begin
HScroll := GetScrollPos(ListView1.Handle, SB_HORZ);
Ligne
:= ListView1.GetItemAt(X, Y).Index;
Colonne
:= -1;
j := X + HScroll; // position X "réelle" dans le tableau
repeat
inc(
Colonne
);
j := j - ListView1.Columns[i].Width;
until j < 0;
Case Colonne of
......
end;
HScroll :=
GetScrollPos(ListView1.Handle, SB_HORZ);
est d'ailleurs le réponse à ta deuxième question.
Ken@vo
<hr size="2" width="100%">
Code, Code, Codec !
http://www.pourflorenceethussein.org/
BlouMan
Messages postés
93
Date d'inscription
mardi 15 mars 2005
Statut
Membre
Dernière intervention
2 juillet 2007
18 avril 2005 à 17:22
18 avril 2005 à 17:22
ou si vous arrivez à récupérer de combien le tableau à était scrollé vers la droite ça me va aussi... ;)
<HR>
BLOU BLOU POWAA
<HR>
BLOU BLOU POWAA
BlouMan
Messages postés
93
Date d'inscription
mardi 15 mars 2005
Statut
Membre
Dernière intervention
2 juillet 2007
19 avril 2005 à 09:39
19 avril 2005 à 09:39
un grand merci à toi Kenavo
KENAVO, KENAVO
Puisque mon gros bateau va m'emporter bientôt
KENAVO
KENAVO, KENAVO
Dans un dernier sanglot quittons nous sur ce mot
KENAVO
<HR>
BLOU BLOU POWAA
KENAVO, KENAVO
Puisque mon gros bateau va m'emporter bientôt
KENAVO
KENAVO, KENAVO
Dans un dernier sanglot quittons nous sur ce mot
KENAVO
<HR>
BLOU BLOU POWAA
cs_Kenavo
Messages postés
702
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
1 octobre 2009
5
19 avril 2005 à 11:36
19 avril 2005 à 11:36
Gast ! J'entends les binious !
Ken@vo
<hr size="2" width="100%">
Code, Code, Codec !
http://www.pourflorenceethussein.org/
Ken@vo
<hr size="2" width="100%">
Code, Code, Codec !
http://www.pourflorenceethussein.org/
