Discussion :

[qi130]

Je dispose d'un pagecontrol contenant 1 tabsheet "invariant".

En fonction d'éléments variables, je souhaite ajouter 1 ou plusieurs tabsheet(s).

sous D6P, l'aide rapporte

NewTabSheet = TTabSheet.Create(PageControl1);

NewTabSheet.PageControl := PageControl1;

J'ai déjà 1 doute sur la syntaxe de la 1ère ligne

Mais ce NewTabSheet, il sort d'où ? et c'est quoi ? (un TComponent fourre-tout ?)
Parceque s'il s'agit de déclarer autant de NewTabSheetx qu'on peut en avoir besoin, je vois pas bien l'aspect dynamique de la chose

[Pedro]

Salut
tu peux faire comme ça chaque fois que tu veux ajouter un TTabSheet:

Code :

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

1
2
3
4
5
6
7
8
9
 
var NewTabSheet: TTabSheet;
begin
  with TTabSheet.Create(PageControl1) do
  begin
    PageControl:=PageControl1;
    //Toutes sortes d'initialisation...
  end;
end;

Voila...

[eponette]

Pourquoi avoir un doute sur la première ligne? Cela crée et TabSheet dont le owner est le tabcontrol. Comme cela, quand le tabcontrol est détruit, tout se détruit.

Cela me semble OK (as-tu testé?)

[Rayek]

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
 
procedure CreatePage(sName,sCaption,sNum : String);
var
  Tab : TTabSheet;
begin
 
  Tab := TTabSheet.Create(Self);
  With Tab do
  begin
    PageControl := JvPageControl1;
    Name := sName + sNum;
    Caption := sCaption;
    TabVisible := True;
    Visible := True;
  end;
  JvPageControl1.ActivePageIndex := JvPageControl1.PageCount -1;
end;

Voici un exemple d'une procédure que j'utilise pour iniialiser des nouvelles pages dans mon pagecontrol (la c'est un jvPagecontrol, mais ca fonctionne avec le Pagecontrol de base)

[Manopower]

J

NewTabSheet = TTabSheet.Create(PageControl1);

NewTabSheet.PageControl := PageControl1;

NewTabSheet est une variable de type TTabSheet déclarée avant le bout de code ci dessus

donc

Code :

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

1
2
3
4
5
6
7
8
9
procedure maprocedure;
var
  newtabSheet : TTabSheet;
begin
  //Création du tabSheet
  NewTabSheet = TTabSheet.Create(PageControl1);
  //Assignation du nouveau tabsheet à notre pagecontrol
  NewTabSheet.PageControl := PageControl1;
end;

est-ce plus clair ?

[qi130]

Pourquoi avoir un doute sur la première ligne? Cela crée et TabSheet dont le owner est le tabcontrol. Comme cela, quand le tabcontrol est détruit, tout se détruit.

Cela me semble OK (as-tu testé?)

A la lecture du code fourni, celà ne peut fonctionner à cause de l'affectation "=" au lieu de ":="

Sylvain: idem pour ton code

Pedro Ok, le code fonctionne - Merci
par contre, pas besoin de déclarer la variable :

[Pedro]

Quelle variable? NewTabSheet? Avec cette structure ce n'est plus la peine