Discussion :

[medsoft]

Bonjour,

J'ai voulu remplacer le composant TPageControl par AdvOfficePager de TMS ou j'ai inséré deux pages qui contienne le reste de mes composants, le but est que lorsque je clic sur l'exécutable AdvOfficePager n'apparait pas puis si je clic sur le bouton 1 la page 1 s'affiche même chose pour le bouton 2 et si je dois fermer une page il y a le bouton fermé sur l'onglet de chaque page, sauf qu'avec le code suivant :

Code :

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

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
AdvOfficePager1.Visible:=false;
end;

Code :

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

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
AdvOfficePager1.Visible:=true;
AdvOfficePager1.ActivePageIndex := 0;
end;

Si je ckic sur bouton 1 les deux pages 1 et 2 s'affiche en même temps alors que le bouton 1 doit ouvrir uniquement la page 1 et si je clic sur le bouton ferme dans l'onglet de la page 1 cette dernière ce ferme, mais quand je reclic sur le bouton 1 pour l'ouvrir rien ne se passe.

Aidez moi S.V.P et merci.

[NABIL74]

salut;
Si j'ai bien compris, tu veux quand tu cliques sur le bouton1, tu fais apparaître Page1,il y a la propriété du composant TabVisible

Code :

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

1
2
3
4
AdvOfficePager1.Visible:=true;
 
// la Page1 invisible:
AdvOfficePager1.AdvPages[0].TabVisible:=false;

A+

NABIL74

[medsoft]

bonjour,

Merci pour la réponse j'ai mis le code suivants:

Code :

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

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
AdvOfficePager1.Visible:=true;
AdvOfficePager1.AdvPages[1].TabVisible:=true;
AdvOfficePager1.ActivePageIndex := 1;
end;

ça marche mais des fois quand je ferme la page 1 et je clic sur le bouton 1 pour l'ouvrir de nouveau ça ne marche pas.

[NABIL74]

salut,

ça marche mais des fois quand je ferme la page 1 et je clic sur le bouton 1 pour l'ouvrir de nouveau ça ne marche pas.

Mais il faut tester si la AdvPages[1] est visible ou pas.

voici un code qui t'aidera:

Code :

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

1
2
3
4
5
6
AdvOfficePager1.Visible:=true ;
if AdvOfficePager1.AdvPages[1].TabVisible=true   then begin
AdvOfficePager1.ActivePageIndex := 1;
end else
AdvOfficePager1.AdvPages[1].TabVisible:=true;
AdvOfficePager1.ActivePageIndex := 1;

NABIL74

[medsoft]

Merci NABIL74 ça marche