Discussion :

[Invité]

Bonjour,

J'utilise avec Delphi la méthode de la FAQ pour masquer un onglet, mais afficher le contenu (FAQ : Masquer un onglet).

Je viens de constater que cela ne fonctionnait pas avec Lazarus. j'ai le code suivant :

Code :

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

1
2
3
  tab := PageControl1.ActivePage;
  tab.TabVisible := (PageControl1.PageCount > 1);
  tab.Visible := True;

Y'a t'il un moyen de le faire autrement avec Lazarus, je n'ai rien trouvé ?

Merci d'avance.

[ThWilliam]

Bonjour.

Masquer un onglet, mais afficher le contenu ?

Cela marche sous Delphi ?

Outre le fait que je n'en vois pas trop l'intérêt, ce n'est pas possible sous Lazarus, la propriété Visible n'étant pas efficiente dans un TabSheet.
Pour preuve, dans le fichier tabsheet.inc, on trouve :

Code :

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

RegisterPropertyToSkip(TTabSheet, 'Visible', 'Use TabVisible instead.', '');

Code :

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

1
2
TabSheet1.Visible:= false; // ne marche pas
 TabSheet1.TabVisible:= false // ok

Cordialement
Thierry

[Invité]

oui, cela fonctionne avec delphi, c'est dans la faq, j'ai remis le lien dans mon premier post.
dommage, que cela ne fonctionne pas avec lazarus.

[alanglet]

Bonjour,

Bizarre, avec Lazarus 1.9 (trunk) sous W10, en décochant la propriété TabVisible du TTabSheet dans l'IDE, l'onglet ne s'affiche pas lors de l'exécution (mais la page s'affiche) .
Êtes-vous sûr que votre code est exécuté? Dans quel event?

André

[Andnotor]

Oui c'est possible sous Delphi. TabVisible := FALSE masque dans un premier temps l'onglet et la page et on ré-affiche la page en la sélectionnant par PageControl1.ActivePageIndex.

Ca permet de conserver la logique d'un PageControl tout en remplaçant les "onglets" par des boutons. Par exemple un TCategoryButton posé sur un TSplitView qui permet d'afficher à choix des icônes ou des icônes plus textes à la façon d'un Outlook Windows 10.

[Invité]

Merci de vos réponses.

J'ai fais des tests, mais je n'ai pas réussi à faire apparaire le contenu sans l'onglet.
J'ai essayé ceci :

Code :

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

1
2
3
4
5
6
   tab := PageControl1.ActivePage;
   tab.TabVisible := False;
   tab.Visible := True;
   PageControl1.ActivePage := tab;
   // ou
   PageControl1.ActivePageIndex := 0;