probleme avec le PageControl

Version imprimable

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:

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.

:salut:
la solution va te faire sourire :D

Code:

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:

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. :mouarf:

20/05/2007, 10h33
ProgD

Je croie que c'est juste un problème de rafrechissment vous devez alors essayé de mêtre la propriété AutoRfresh=True;
20/05/2007, 12h19
aliwassem

:salut:

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.
20/05/2007, 12h20
aliwassem

Desole..............8-)
20/05/2007, 13h48
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.

Le meme code mais sans conditions...
Code:

1 2 3 4 ChartRecette.Visible:=(Pagecontrol1.ActivePage = Tabsheet1); ChartEntree.Visible:=(Pagecontrol1.ActivePage = Tabsheet2); ChartSortie.Visible:=(Pagecontrol1.ActivePage = Tabsheet3);
au début , le code peut paraitre pas tres lisible mais maintenant je préfere ça a des conditions :aie:

20/05/2007, 19h44
tchimou

Merci Didier2020 pour ta solution, mais ça donne toujours la même chose; savoir le premier TDBChart , le ChartRecette seulement , donc lorsque je change d'onglet , je ne vois rien. lorsque je reviens sur le premier onglet , je vois le ChartRecette , mais lorsque je vais sur un autre onglet , je ne vois rien.
Vraiment je ne sais pas comment regler cette situation.
Merci pour votre aide
20/05/2007, 23h31
aityahia

je suis tous a fait d'accord avec evernissa il faut cacher les autres Dbchart pour afficher celui voulour cars il faut pas oublier qu'il sont superposer essai

Code:

DbChart2.BringToFront;
21/05/2007, 01h59
tchimou

Merci pour le code, j'ai essayé , toujours le même resultat que les fois dernières.
21/05/2007, 07h12
evarisnea

1 pièce(s) jointe(s)

@ aityahia : c'est bien evarisnea et non evernissa :aie: puisque l'on cache tous les autres charts pour n'en afficher qu'un seul, BringToFront n'est pas trop nécessaire je trouve.
@ didier2020 : ton code est plus lisible que le mien, je l'adopte pour l'exemple que je poste
@ tchimou : le titre des charts est il quand même affiché malgré tout ?
voici un projet basique qui fonctionne.

oui c'est vrai que c'est pas nécéssaire dans ton exemple, mais si il opte a utiliser bringToFrint il na pas a cahcer les autres DbChart il aura une seul ligne de commande pour chaque DbChart.

le DbChart en premier plan cache tous les autres alors il faut juste remonter en surface le DbChart Voulu.
Code:

1 2 3 4 5 6 7 8 Procedure TStatistiqueForm.PageControl1Change(Sender: TObject); begin Case Pagecontrol1..ActivePageIndex of 0 : ChartRecette.BringToFront; 1 : ChartEntree.BringToFront; 2 : ChartSortie.BringToFront; end; end;

Citation:
Envoyé par aityahia
oui c'est vrai que c'est pas nécéssaire dans ton exemple, mais si il opte a utiliser bringToFrint il na pas a cahcer les autres DbChart il aura une seul ligne de commande pour chaque DbChart.

le DbChart en premier plan cache tous les autres alors il faut juste remonter en surface le DbChart Voulu.
Code:

1 2 3 4 5 6 7 8 Procedure TStatistiqueForm.PageControl1Change(Sender: TObject); begin Case Pagecontrol1..ActivePageIndex of 0 : ChartRecette.BringToFront; 1 : ChartEntree.BringToFront; 2 : ChartSortie.BringToFront; end; end;
c'est vrai ;)

21/05/2007, 11h38
tchimou

Merci à tous!
je viens de trouver l'erreur;au fait , j'avais deposé mes TDBChart les uns sur les autres, alors le premier reagissait comme un contenaire et prenait à lui seul les autres TDBChart, donc c'est ce qui faisait que je ne voyais qu'un seul malgré toutes les solutions que je recevais de votre part.
J'ai donc mis mes TDBChart sur ma form , et après seulement je les ai superposé, et là , j'ai repris le premier post d'evarisnea, et tout marche à merveille.
Merci pour votre aide à tous.