Discussion :

[JeaDeb]

Bonjour,
Je créé plusieurs Tabsheet dans un PageControl, chaque Tabsheet contient un seul StringGrid.
Je veut créer une bouton qui imprime le StringGrid inclue dans le tabsheet active (c à d) le tabsheet ouvert par l'utilisateur seulement.
Comment faire appel a ce stringGrid ?
J'ai essayé de faire ça, mais ça ne marche pas:

Code :

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

Pagecontrol1.ActivePage.Components[0] As TStringGrid;

[solilog]

Salut JeaDeb

Y a un moyen rapide (pas hyper propre mais qui marche bien).
Disons que tu aies dans tes tabCtrl les stringgrid gr0, gr1, gr2, gr3, ...
1 - dans la partie private de ta form tu ajoutes un tStringgrid supplémentaire que tu nommes ActiveGrid
2 - tu utilise l'évênement OnChange de ton pagecontrol et tu fais:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.PageControl1Change(Sender: TObject);
begin
   case PageControl1.ActivePageIndex of
      0: ActiveGrid := gr1;
      1: ActiveGrid := gr1;
      3: ActiveGrid:= gr3;
    end;
end;

et dans ton bouton tu auras toujours ActiveGrid qui pointera sur la bonne grid, tu pourras imprimer, modifier, ...
Y a mieux, mais c'est plus cher.
Clair ?
solilog

[Charly910]

Bonjour,

sinon tu peux utiliser la propriété Tag des TStringGrid. tu mets le Tag de chaque grille égale au numéro de l'onglet : 0, 1, ... puis :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
    i     : Integer    ;
Begin
   for i:=0 to ComponentCount-1 do
      If Components[i] is TStringGrid then
         Begin
            If (Components[i] as TStringGrid).Tag = PageControl1.ActivePageIndex Then
                       ...  impression de la grille de l'onglet 
 
        End ;
End;

A+
Charly

[Ph. B.]

Bonjour,
Je créé plusieurs Tabsheet dans un PageControl, chaque Tabsheet contient un seul StringGrid.
Je veut créer une bouton qui imprime le StringGrid inclue dans le tabsheet active (c à d) le tabsheet ouvert par l'utilisateur seulement.
Comment faire appel a ce stringGrid ?
J'ai essayé de faire ça, mais ça ne marche pas:

Code :

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

Pagecontrol1.ActivePage.Components[0] As TStringGrid;

Car :

1. un composant n'est pas forcément un contrôle visuel (ou fenêtré).
2. ce n'est pas forcément le 1° élément de la liste.

Il faut :

1. parcourir la liste des contrôles (à ne pas confondre avec composants car je le rappelle cette dernière inclut composants visuels -ou fenêtrés- et non visuels)
2. regarder si le type correspond (on s'arrête dans votre cas au 1° trouvé)
3. renvoyer le contrôle

Cela donne (à vérifier sous Delphi)

Code :

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

1
2
3
4
5
6
7
8
9
10
var
  i: integer;
  MaStringGridAImprimer: TStringGrid;
//...
  for i := 0 to Pagecontrol1.ActivePage.ControlCount - 1 do // à ne pas confondre avec ComponentCount
    if Pagecontrol1.ActivePage.Controls[i] is TStringGrid then // à ne pas confondre avec Components[i]
    begin
      MaStringGridAImprimer := TStringGrid(Pagecontrol1.ActivePage.Controls[i]); // Typer car Controls[i] est du type générique TWinControl
      Break; 
    end;

[JeaDeb]

Je vous remercie infiniment, ça marche !