Discussion :

[ghost942]

Bonjour,

Dans mon Form, j'ai placé un PageControl avec quelques TabSheets.
Jusqu'a là pas de soucis.

Par contre, lorsque je créé dynamiquement une nouvelle page Tabsheet dans le PageControl, j'ai un soucis!

Dans le Tabsheet créé, j'y place une Frame qui contient d'autres composants (groupbox,ctrldbgrid, etc) dont des vulgaires Labels.

Le soucis? Ces labels ne sont pas affichés a l'execution! Ils deviennent invisibles... (On peut les voir furtivement lors d'un resize du form.)

Je me suis dit que c'est peut etre a cause du PageControl (bug?)

Si je swappe la frame dans un Form, j'ai le meme soucis. Les labels persistent a rester non visibles.

[Qwazerty]

SAlut
Comment tu crée les composant que tu mets a sur tes pages, il n'y aurait pas une erreur de parenté pour tes composant?

A++
Qwaz

[ghost942]

Hum,je dirais que non mais bon!

Voici le code

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
var
  Page:Ttabsheet;
  RCpage:TRaceCardPage;  // Tframe
begin
 ...
 Page:=Ttabsheet.Create(self);
 Page.Tag:=1;
 Page.Caption:=titre;
 Page.PageControl:=Pages;  //-> Pages=TPagecontrol
 Page.ImageIndex:=0;
 Page.Name:='page'+inttostr(id);
 
 RCPage:=TRaceCardPage.Create(self);
 with RCPage do begin
      RCpage.Align:=alclient;
      RCPage.Parent:=Page;
      RCpage.Name:='race'+inttostr(id);
 end;
..
end;

[Qwazerty]

Re
Tu as pas mis la partie ou tu rajoute tes Label.
Mais si je mets ca ca fonctionne

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button2Click(Sender: TObject);
var LblDyn : TLabel;
begin
LblDyn := TLabel.Create(Self);
LblDyn.Caption := 'essai';
LblDyn.Parent := TFrame(findComponent('race2'));
 
end;

A++
Qwaz

[ghost942]

Les labels sont compris dans la Tracecardpage (une frame qui contient des tlabels, tctrldbgrid,tpanel, etc) qui est également le conteneur pour d'autres frames. D'ailleurs, ces autres frames héritent du même problémes de visibilités de labels.

[ghost942]

N'y aurait il pas un bug avec XPman (look XP) ?!

Dès que j'ajoute un panel dans mes frames, le problème survient, sinon non.

En design également j'ai des problème. Par exemple, dans un onglet, je met un panel ou un groupbox, je colorie le fond avec une couleur autre que le parent. En design, il prend bien la couleur demandé. Mais a l'execution, il garde la couleur du parent!!!! Si j'enleve le composant Xpman, tout est ok (a part le look evidement)

[Qwazerty]

SAlut
Je pense pas que ce soit un bug, il y a eu un fil identique a se sujet de ero-senin, avec des tpanel de couleur au moment de la depose du XPman les Tpanel sont redevenu gris, on a pas trouvé de solution... désolé, je passe mon tour
++
Qwaz

[ghost942]

Et en prenant un autre Xpman d'un autre fournisseur? (si ca existe)