Discussion :

[Blagueur]

Bonjour je ne trouve pas le moyen de désactiver des tabsheet d'un pagecontrol.
Je suis arriver à la solution de les cacher, mais je ne suis pas très satisfait de cette méthode.

alors merci d'avance si vous avez des pistes

[Yurck]

Code :

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

1
2
 
  Tabsheet.enabled := false;

Cela ne fonctionne pas ?

[Blagueur]

non justement, j'ai de la peine à comprendre...

[CapJack]

Si, ça fonctionne, au sens où le contenu de l'onglet est désactivé, mais ce dernier peut toujours être sélectionné pour consultation, ce qui paraît raisonnable. Il me semble que cette question a déjà été soulevée, et qu'une solution "désactivation complète" avait été trouvée.

[Blagueur]

ha oui effectivement, on peut toujours consulter mais rien faire d'autre, mais dans mon cas je suis à la recherche du solution pour la désactivation compète.

[qi130]

Il faut regarder dans le OnChanging du PageControl : la var AllowChange peut être positionnée selon tes critères...

Affectez la valeur false au paramètre AllowChange pour empêcher la modification

[Reisubar]

Regarde du côté de la propriété TabVisible.

[anapurna]

salut

c'est une réponse déjà faites plusieurs fois

regarde ici

@+ Phil

[BuzzLeclaire]

Tu peux aussi faire ce genre de chose (bon c'est pas estétique mais à toi d'arranger le phénomène

Dans l'évenement DrawTab de la pageControl tu peux imaginez ce genre de chose :

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
procedure TFormPrincipal.PageControlPrincipalDrawTab(
  Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect;
  Active: Boolean);
Begin
  if Active then
  Begin
    if Tabindex = 2 then   <== Le tabsheet que tu veux empècher l'accès
    Begin
      PageControlPrincipal.Pages[Tabindex-1].Show;  <== On force l'affichage sur un autre 
tabsheet si on clique sur le tabsheet n°2
Ici si je clique sur le 2 je l'emmene sur le 1 
    end
    else
    Begin
ICI TU PEUX DESSINER TES CAPTIONS AVEC DES EFFET 3D sauf le Tabindex à 2 par exemple
    end;

  end;
end;

Voilà le genre d'astuce que je ferais.
C'est imparrable, si l'utilisateur clique sur le tabsheet 2, il ne pourra jamais y aller.