[TPageControl] OnChanging --> AllowChange

Bonjour,
J'ai une serie d'onglets dans mon TPageControl. Dans certains cas (Type de comptes), j'aimerai autoriser l'accès à certaines pages.

Donc, on dirait qu'il manque une petite var dans l'évenement OnChanging --> une var donnant l'index de l'onglet où l'utilisateur veut aller. Donc sans ca, je ne vois pas comment faire ?

Avez vous une solution ?

Merci d'avance

Salut,
moi j'ecrit lactivepageindex dans une Variable Globale OldIndex dans Levenement onChanging Comme suis:

Code:

---

1 2 3 4 5

procedure TOptionsFrame.PageControlChanging( Sender: TObject; var AllowChange: Boolean); begin OldIndex := PageControl.ActivePageIndex ; end;

---

apres dans levenement onChange je traite les cas selon le OldIndex.
Crd

Oui mais , niveau graphique, ca change quand même de page ! Pas très beau tout ca :wink: .

Merci

Oui ta raison m quand meme c une solution temporär
ben moi jai fait comme ca :(Dans le OnChange event)

Code:

---

1 2 3

if NOT Condition Then Obj.ActivePageIndex:= OldIndex ;

---

:D C'est bon, j'ai la solution

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TMaint_Form.PageControl1Changing(Sender: TObject; var AllowChange: Boolean); Var P : TPoint; begin P := PageControl1.ScreenToClient(Mouse.CursorPos);//Converti les coordonnées écran en coordonnées sur le Pagecontrol1 Old_Tab := PageControl1.IndexOfTabAt(P.X,P.Y); Indique l'index de page en fonction des coordonnées.     If (User.Types = 2)And(Not (Old_Tab in [2,6]) ) then begin //Refuse le changement si la page est <> à 2 ou à 6. AllowChange := False; MessageDlg(RS_ACCESS_DENIED, mtError, [mbOK], 0); end;

---

Je la trouve sympa cette solution . Peut être une petite place dans la FAQ :wink:

Il ne serait pas plus simple de rendre invisible ces pages au moment de la connexion du compte, selon les droits qu'a l'utilisateur ?

Citation:

---

Envoyé par Malatar

Il ne serait pas plus simple de rendre invisible ces pages au moment de la connexion du compte, selon les droits qu'a l'utilisateur ?

---

Plus simple --> Surement
Plus esthétique --> je ne trouve pas.