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
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
Cela ne fonctionne pas ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2Tabsheet.enabled := false;
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.
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.
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
salut
c'est une réponse déjà faites plusieurs fois
regarde ici
@+ Phil
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 :
Voilà le genre d'astuce que je ferais.
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;
C'est imparrable, si l'utilisateur clique sur le tabsheet 2, il ne pourra jamais y aller.
Partager