Discussion :

[TOTO32]

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 :

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

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 !

[skywaukers]

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 :

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

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

[TOTO32]

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 :

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

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 !

[tintin22]

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

[TOTO32]

C'etait bien un probleme de focus, Merci !