Discussion :

[Invité]

Bonjour à tous,

Je ne sais pas si ce problème a déjà été soulevé, car je ne sais pas comment faire de recherche, du moins comment formuler ce problème.

Je vous explique :

J'ai 2 cadres TFramePo et TFrameStructSoc que je souhaite afficher dans des onglet.

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
 
procedure TFormPrincipale.FormCreate(Sender: TObject);
var
i:integer;
 
begin
Controle[0]:=TFramePo.Create(FormPrincipale);// j'ai changé les Owner et ça ne change rien
Controle[0].Name:='momo';
Controle[1]:=TFrameStructSoc.Create(self);
 
Controle[2]:=TFramePo.Create(self);
OldControl:=0;
Controle[0].Enabled:=true;
for I := 0 to 2 do
  begin
    PageControl1.InsertControl(Controle[i]);
    Controle[i].Hide;
  end;
Controle[0].Show;
end;

Et au changement d'onglet

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TFormPrincipale.TabControl1Change(Sender: TObject);
var
i:integer;
begin
Caption:=IntToStr(TabControl1.TabIndex);
Controle[OldControl].hide;
Controle[TabControl1.TabIndex].Show;
OldControl:=TabControl1.TabIndex;
end;

La chase particulière est que tout fonctionne bien tant que dans les TFrames il n'y a pas de composant TMemo ou TRichEdit. Dans ce cas le TFrame ne s'affiche pas.
Si j'ajoute un TMemo je dois faire un RemoveControle et un InsertControle pour qu'il s'affiche.

J'ai du oublie quelque chose, mais quoi ....

[Linkin]

Pourquoi n'insères tu pas tes frames dans les TabSheets?

[Cl@udius]

Pourquoi n'insères tu pas tes frames dans les TabSheets?

+1
Effectivement, tu utilises un TTabControl en simulant le comportement d'un TPageControl.

[Invité]

Merci de vos réponses.

Bien oui, mais je viens de passer de Delphi 5 à Delphi 2009 (je développais en Delphi 7 il y a 3 ans) et je suis un peu perdu dans cette nouvelle interface.

Je ne retrouve pas les TTabSheets. où sont-ils ?

Mais ce problème avec les TMemo je l'avais déjà eu avec d'autres choses.

Visiblement avec ce type de composant il y a toujours un comportement particulier.

Si non tant que je n'utilise pas de TMemo ou TRichEdit tout fonctionne à merveille.

[Linkin]

En fait je viens de m'apercevoir que dans un code tu utilise un TabControl et dans l'autre un PageControl.

Pour les TabSheet, en conception, il suffit de faire un clic droit, Nouvelle page.
En exécution, un petit tour dans la FAQ:
http://delphi.developpez.com/faq/?page=pagecontrol

[Invité]

Merci à tous, ça marche avec le TTabSheet.

Ca faisait longtemps que j'avais plus fait de Delphi (+/- 1 ans) et je me suis un peu perdu.