[TPageControl] OnChanging --> AllowChange

**portu** · 04/11/2005, 10h41

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

**Soulama** · 04/11/2005, 11h20

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

Code :

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

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

**portu** · 04/11/2005, 11h25

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

.

Merci

**Soulama** · 04/11/2005, 11h32

Oui ta raison m quand meme c une solution temporär
ben moi jai fait comme ca

Dans le OnChange event)

Code :

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

1
2
3
 
  if NOT Condition Then
    Obj.ActivePageIndex:= OldIndex ;

**portu** · 04/11/2005, 11h46

C'est bon, j'ai la solution

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 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;