Discussion :

[Jipété]

Bonjour,

oui, je sais, le titre n'est pas très clair et explicite, mais j'ai essayé de faire court et comme je ne vois pas du tout où est le problème (à part dans les tréfonds de Lazarus...), je ne pouvais pas mettre 25 lignes de texte pour le titre

Alors voilà (et ça n'a rien à voir avec mon problème de SetFocus dont on a causé hier) :
soit un TPageControl contenant 4 TTabSheets, et dont le 2e contient un TGroupBox contenant d'autres composants.


Ce TGroupBox sera affiché ou pas en fonction d'un booléen positionné dans FormActivate. Cela fonctionne parfaitement bien sur le projet de test sans TPageControl, c'est quand je regroupe plusieurs maquettes (une par TTabSheet) que ça coince, et ça coince également sans aucun code : juste pour confirmer, j'ai fait un projet de test qui n'a pas de code à part la détection du booléen :

Code :

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

1
2
3
4
5
6
procedure TForm1.FormActivate(Sender: TObject);
begin
  FbTest := False;
  if FileExists(ExtractFilePath(Application.ExeName)+'test') then FbTest := True;
  if not FbTest then GroupBox1.Visible := False;
end;

Maintenant soyez bien assis sinon vous risquez de tomber par terre (comme moi hier soir à pas d'heure...) :
ce qui m'intéresse, c'est la condition False du booléen, et donc le gb caché.

• si je compile pour l'onglet contenant le gb, pas de problème ;
• si je compile pour un autre onglet, à l'exécution quand je passe sur cet onglet, ben le gb est visible !
  Mais pas tous ses composants ! ! !

Je ne vois aucune solution à ce merdier, mis à part compiler pour cet onglet et dans le FormActivate, rajouter PageControl1.ActivePage := TabSheet1;.

Et là je retrouve un fonctionnement correct.

Ce post n'est pas une demande d'aide (sauf s'il y a un bug connu que j'ignore), plutôt un coup de gueule face à un comportement farfelu qui me fait me dégoûter, parfois, de l'informatique.

[tourlourou]

Quid de tester la condition dans le Form.OnActivate et attribuer la visibilité dans le TabSheet.OnShow ?

[Jipété]

Salut Yves,

Quid de tester la condition dans le Form.OnActivate et attribuer la visibilité dans le TabSheet.OnShow ?

Oui, pourquoi pas ? C'est un peu comme ma solution, mais tout ça contourne le pb de base, qui est (pour moi) un comportement farfelu dans la mesure où cet affichage incohérent dépend de l'onglet sélectionné à la compilation.
Et c'est ça qui est strange !

[e-ric]

Salut,

As-tu essayé d'initialiser la propriété GroupBox1.Visible à False en conception ?

Le code suivant est à mon sens plus simple:

Code :

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

1
2
3
4
5
procedure TForm1.FormActivate(Sender: TObject);
begin
  FbTest := FileExists(ExtractFilePath(Application.ExeName)+'test');
  GroupBox1.Visible := FbTest;
end;

Cela peut signifier que l'initialisation des TTabSheets masqués se déroulent après l'exécution du gestionnaire Form.OnActivate

La solution de Tourlourou est pertinente et sans doute plus logique, car c'est le meilleur moment pour décider de l'affichage de ta GroupBox.

L'absence de certains composants du GroupBox estn franchement bizarre.
As-tu du code qui manipule les dits objets ?

Cdlt

[tourlourou]

Il faudrait pê vérifier le .dfm, les parents des composants et leurs visibilités dans des ShowMessage (ou dans l'inspecteur de variables, en pas-à-pas).

[Jipété]

(...) L'absence de certains composants du GroupBox est franchement bizarre.
As-tu du code qui manipule les dits objets ?

Je te le fais pas dire !

Et sinon, non, aucun code dans le projet de test pour ce post, mis à part le test pour FbTest.

Mais bon, tu as trouvé la solution :

As-tu essayé d'initialiser la propriété GroupBox1.Visible à False en conception ? (...)

Franchement, je n'y ai pas pensé lors de la première maquette (prog tout seul sans PageControl), et lors du copier/coller vers le projet final, le défaut n'est pas apparu tout de suite, donc j'ai zappé...

Allez hop, un de plus

Merci à tous,