Bonjour,
Je souhaite gérer l'accès à un onglet particulier d'un TPageControl par un mot de passe. Je vais donc écrire une procédure OnChanging.
Mon souci est que je n'arrive pas à trouver la propriété qui contient l'index de l'onglet qui a été cliqué. Je m'explique: Classeur.ActivePageIndex c'est la page d'où l'on part mais ou trouver la page où l'on devrait arriver?
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
18
19
20
21
22
23
24
procedure TForm1.ClasseurChanging(Sender: TObject;
  var AllowChange: Boolean);
var
   I, J : Integer;
begin
  I :=  Classeur.ActivePageIndex;
  J :=  Classeur.Pages[X].  TabIndex;
 
  case J of
  0  : Begin  // Onglet 1
       End;
  1  : Begin  // Onglet 2
       End;
  2  : Begin  // Onglet 3
       End;
  3  : Begin  // Onglet 4
            // Traitement du Mot de passe
            if FPassWord.ShowModal = mrOK then  // Si Mot de passe correct
              AllowChange := True
            else
              AllowChange := False;
       End;
  End;
end;
Merci