[TTabSheet] [TListView] Accéder au TListView actif

Bonjour,

Voici mon probleme, j'ai une TForm contenant un TPageControl, celui-ci contient 5 TTabSheet, et dans chaque TTabSheet j'ai un TListView.

J'ai donc créer une procédure pour selectionner tout les élément de la liste, seulement voila ! quand j'écrit la procédure, a qui je m'adresse ... ?

Alors la seul solution que je connaise pour le moment est celle la !

Code:

---

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

procedure TForm5.SelectAllClick(Sender: TObject); begin if SelectAll.Checked then begin ListView1.SelectAll; ListView2.SelectAll; ListView3.SelectAll; ListView4.SelectAll; ListView5.SelectAll; end else begin ListView1.ClearSelection; ListView2.ClearSelection; ListView3.ClearSelection; ListView4.ClearSelection; ListView5.ClearSelection; end; end;

---

Mais il est clair que cela n'est pas trés pratique, alors je voudrait savoir si possible, comment l'on pourrait trouver le TListView Actif contenus dans le TTabSheet actif.

Merci a tous !

bonjour,

voici une petite fonction qui te retournera l'instance du TListView qui se trouve sur le tabsheet actif (ou nil si il n'y en a pas):

Code:

---

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

function TForm1.ListViewActif: TListView; var i : Integer; begin Result := nil;   for i := 0 to PageControl1.ActivePage.ControlCount - 1 do begin if PageControl1.ActivePage.Controls[ i].ClassName = 'TListView' then begin Result := TListView( PageControl1.ActivePage.Controls[ i]); Break; end; end; end;

---

Cela se compliquera si il y en a plusieurs (il ne retournera que le premier).

@++
Dany

Merci Dany !

Mais j'ai juste un petit probleme, c'est a dire que quand je clique sur tout selectionner, il me selectionne tout, mais le probleme est que la selection ne s'affiche pas, il faut que je clique sur une des colonnes du TListView pour que la selection s'affiche en bleu.

Et j'aimerias bien que la selection s'affiche sans que je sois obligé de cliquer sur une des colonnes.

Voici le code modifier avec la procédure :

Code:

---

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

procedure TForm5.SelectAllClick(Sender: TObject); begin if SelectAll.Checked then ListViewActif.SelectAll else ListViewActif.ClearSelection; end;   function TForm5.ListViewActif: TListView; var I: Integer; begin Result:=nil; for I:=0 to PageControl1.ActivePage.ControlCount-1 do begin if PageControl1.ActivePage.Controls[I].ClassName = 'TListView' then begin Result:=TListView(PageControl1.ActivePage.Controls[I]); Break; end; end; end;

---

Donc si quelqu'un pourrait m'aider, Merci a tous !

Au hasard, ce n'est pas un probleme de Focus ? ListView1.SetFocus ;

C'etait bien un probleme de focus, Merci !