Discussion :

[tchimou]

Bonjour à tous!
voici , j'ai un probleme avec mon composant PageControl.
Mon composant PageControl a trois feuilles (Tabsheet) et à côté de ce composant, j'ai trois composant TDBChart ; chaque TBDChart donne un graphique selon que l'onglet du PageControl change . J'ai supperposé les TDBChart les uns sur les autres.
- Dans le premier onglet , je calcule les recettes et j'affiche le graphique des recettes dans un TBDChart.
- Dans le second onglet , je calcule les entrees de caisse et j'affiche aussi le graphique correspondant
- dans les troisième onglet , je calcule les sorties et j'affiche le graphique .
ce qui dit , lorsque je passe d'un onglet à l'autre , je voudrais voir le graphique correspondant.

au prealable, j'ai mis dans l'evenement OnShow de la form TDBChart des recettes à visible = true et les autres à visible = false afin de voir lorsque la feuille s'ouvre les recettes et le graphique.

mais j'ai fait ceci ensuite:

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
procedure TStatistiqueForm.PageControl1Change(Sender: TObject);
begin
   if Pagecontrol1.ActivePage = Tabsheet1 then
   begin
    ChartRecette.Visible:=True;
   end;
 
   if Pagecontrol1.ActivePage = Tabsheet2 then
   begin
    ChartEntree.Visible:=True;
   end;
 
  if Pagecontrol1.ActivePage = Tabsheet3 then
   begin
    ChartSortie.Visible:=True;
   end;
end;

lorsque j'execute ce code, lorsque je passe d'un onglet à l'autre, ça marche; mais lorsque je reviens sur un onglet que j'ai deja vu et que je voudrais de nouveau voir , le TDBChart ne change pas, il reste sur le dernier TDBChart vu.
je ne sais comment pallier à cela.
Merci de votre aide.

[evarisnea]

la solution va te faire sourire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TStatistiqueForm.PageControl1Change(Sender: TObject);
begin
   //cacher tous les charts
   ChartRecette.Visible:=False;
   ChartEntree.Visible:=False;
   ChartSortie.Visible:=False;
   //afficher uniquement le chart adéquat
   if Pagecontrol1.ActivePage = Tabsheet1 then
    ChartRecette.Visible:=True
   else if Pagecontrol1.ActivePage = Tabsheet2 then
    ChartEntree.Visible:=True
   else 
    ChartSortie.Visible:=True;
end;

ou encore, en supposant que Tabsheet1,2 et 3 ont respectivement pour index de page 0, 1 et 2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TStatistiqueForm.PageControl1Change(Sender: TObject);
begin
   //cacher tous les charts
   ChartRecette.Visible:=False;
   ChartEntree.Visible:=False;
   ChartSortie.Visible:=False;
   //afficher uniquement le chart adéquat
   case Pagecontrol1.ActivePageIndex of
     0: ChartRecette.Visible:=True
     1: ChartEntree.Visible:=True
     2: ChartSortie.Visible:=True;
   end;
end;

voilà, tu comprends à présent pourquoi ça ne marche pas.

[ProgD]

Je croie que c'est juste un problème de rafrechissment vous devez alors essayé de mêtre la propriété AutoRfresh=True;

[aliwassem]

qu'est ce que je pense comme ProgD il faut desactiver le TBDChart et l'activer ou le Table qui le connect , ou un refrech.

[aliwassem]

Desole..............

[tchimou]

Merci pour votre aide à tous!
j'ai essayé le code d'evarisnea , mais il ne me donne que le premier TDBChart, et je crois que c'est parce que dans l'evenement OnShow de la form , j'ai mis ChartRecette.Visible:=True; et les autres à visible=false;
ce qui dit , lorsque je lance mon application , il se trouve par defaut sur ChartRecette, mais lorsque je change d'onglet , il y a rien , même pas un Chart, et lorsque je reviens sur le premier onglet , je vois le ChartRecette.
j'ai même mis les propriétés AutoRefresh de ces TDBChart à true dans l'evenement Onchange du PageControl, mais toujours rien qui marche normalement.
Merci pour votre aide.