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.

[Invité]

Voilà j'en suis à nouveau au même problème.

Je veux réunir ces TFrames sur une feuille principale à la volée et ça bloque

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TFormPrincipale.FormCreate(Sender: TObject);
var
Signa:TFrameSignaletique;
begin
Signa:=TFrameSignaletique.Create(Panel1);
Panel1.InsertControl(Signa);
 
 
end;

Rien n'est inséré et la fiche ne semble plus recevoir de message.

Par contre si j'ajoute ça

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.FormCreate(Sender: TObject);
var
Signa:TFrameSignaletique;
begin
Signa:=TFrameSignaletique.Create(Panel1);
Panel1.InsertControl(Signa);
Panel1.RemoveControl(Signa);
Panel1.InsertControl(Signa);
end;

Là ça fonctionne.

Doit on y place un composant receveur sur la fiche ?
Si oui lequel ?

[Kaféine]

Salut,

Tout simplement:

Code :

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

1
2
3
4
5
6
7
8
 
procedure TFormPrincipale.FormCreate(Sender: TObject);
var
  Signa:TFrameSignaletique;
begin
  Signa:=TFrameSignaletique.Create(Self);
  Signa.Parent := Panel1;
end;

[Invité]

Merci

Et oui tout simplement.

J'ai tendance à tout compliquer depuis que je suis passé en Java.

On oublie vite en 1 an