Discussion :

[free07]

Bonjour,

Après pas mal de temps à rechercher sur le net, impossible de trouver comment ajouter un onglet ( TTabItem ) à un TTabControl, voici ce que je fais mais qui ne fonctionne pas :

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
ztc_ListSequence: TTabControl;
procedure TFormGererProjet.AjouterSequence();
 
var l_Onglet : TTabItem;
 
begin
  // Création de l'onglet
  l_Onglet := ztc_ListSequence.Tabs[ztc_ListSequence.TabCount].Create(ztc_ListSequence);
  if l_Onglet <> nil then
  begin
    l_Onglet.Parent := ztc_ListSequence;
    // Modification du titre de l'onglet
    ztc_ListSequence.Tabs[ztc_ListSequence.TabCount].Text := 'Nouvelle séquence';
    ztc_ListSequence.Tabs[ztc_ListSequence.TabCount].Visible := true;
  end;
end;

Cela ne plante pas à l'éxecution mais aucun onglet ne s'affiche !!! Et je n'arrive pas à trouver ce qu'il faut faire...

[Ph. B.]

Bonjour,

Créez votre TabItem à partir de la procédure de classe TTabItem comme on le fait pour un TForm, un TButtton, etc, etc.
Et surtout pas d'un objet déjà instancié, sinon bonjour la pagaille...

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
ztc_ListSequence: TTabControl;
 
procedure TFormGererProjet.AjouterSequence();
var
  l_Onglet: TTabItem;
begin
  // Création de l'onglet
  l_Onglet := TTabItem.Create(ztc_ListSequence);
  if l_Onglet <> nil then // Pas très utile
                          // Soit ca plante, soit c'est créé et donc <> nil
  begin
    l_Onglet.Parent := ztc_ListSequence;
    // Modification du titre de l'onglet
    l_Onglet.Text := 'Nouvelle séquence';
    // Sélection
    ztc_ListSequence.TabIndex := ztc_ListSequence.TabCount - 1;
  end;
end;

[free07]

Okay, effectivement, merci.