Discussion :

[Jayceblaster]

Bonjour

Voila j'ai un ptit problème.
J'ai un bouton dans une form qui, lorsque je clique dessus créé un tabsheet (jusque 10) de manière dynamique (celui ci est sur un tPage Control créé lui aussi dynamiquement).

voila le code:

Code :

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

1
2
3
4
5
6
7
8
 
            var TabSheet : array [0..9] of TTabSheet;
   .........
 
             //creation du composant TTabSheet
             TabSheet[iNombrePage] := TTabSheet.Create(Form1);
             //le tabsheet sera associé au TPageControl
             TabSheet[iNombrePage].PageControl := PageControl;

Jusque la tout va bien. Le problème survient lors de la destruction de ces Tabsheet. En effet sur ma form j'ai également un bouton me permettant de supprimer le TabSheet activé (en cours de visualisation). Lorsque je supprime le deuxime Tabsheet, par exemple, celui ci se supprime mais quand ensuite je veux supprimé de nouveau le deuxieme tabSheet (le troisieme et devenu deuxieme) j'ai une erreur de pointage. Cel viens certainement du fait que le deuxieme élément du tableau a été supprimé deja et je ne peux pas de nouveau le supprimer.

voila mon source pour la destruction du tabsheet:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
     for iCompteur := PageControl.ActivePageIndex to iNombrePage -1 do
        //remonte tout les tabsheet qui suive celui à supprimer
        tabSheet[iCompteur]:= tabSheet[iCompteur + 1];
 
 
     //destruction du dernier abSheet
     tabSheet[iNombrePage].Free;
 
     iNombrePage := iNombrePage - 1;   //correspond au nombre de page de mon tabPage (-1 car on viens dans supprimer 1)

voila je ne comprend pas

Quelqu'un peut il m'aider

Merci d'avance

ps: si vous n'avez pas compris n'hésitez pas à demander car c'est pas facile à expliquer

[LadyWasky]

Déjà, pour la création du TabSheet, j'écrirais ceci :

Code :

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

TabSheet[iNombrePage] := TTabSheet.Create(PageControl );

(je me trompe peut être... mais bon)


Et pour la destruction :
On va itérer de ActivePageIndex à iNombredePages-2
pour que en dernière boucle, on aie :

Code :

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

tabSheet[<iNombrePage -2]:= tabSheet[iNombredePages-1];

Hé oui, les indices du tableau vont de 0 à iNombredePages-1...

Et en plus, on va faire un While, parceque si ActivePageIndex correspond au dernier TabSheet, on a l'air fin...

Code :

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

1
2
3
4
5
6
7
8
9
iCompteur:=PageControl.ActivePageIndex
while iCompteur<iNombrePage-1 do
begin
        //remonte tout les tabsheet qui suive celui à supprimer
        tabSheet[iCompteur]:= tabSheet[iCompteur + 1];
        inc(iCompteur);
end;

tabSheet[iNombrePage-1].Free;

Je crois que ça marchera mieux...

[Jayceblaster]

Je crois que ça marchera mieux...

Euh..ben non c'est toujours pareil

[LadyWasky]

Euh..ben non c'est toujours pareil

Ha ba heuuuuuuu... zut alors...


Quand on ajoute un TabShheet, il faut faire ceci :

Code :

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

iNombrePage:=iNombrePage+1;

Mais enfin, comme tu crées tout d'un coup, est-ce utile ?....

Par contre à la destruction, faut pas oublier ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
iCompteur:=PageControl.ActivePageIndex
while iCompteur<iNombrePage-1 do
begin
        //remonte tout les tabsheet qui suive celui à supprimer
        tabSheet[iCompteur]:= tabSheet[iCompteur + 1];
        inc(iCompteur);
end;

tabSheet[iNombrePage-1].Free;
dec(iNombrePage);

Si ce n'est pas ça, je ne répond plus de rien

[exoseven]

en utilisant TList au lieu d'un array tu te simplifieras la vie

var TabSheet:TList;


création d'un onglet

tab := TTabSheet.Create(Form1);
tab.PageControl := PageControl;
TabSheet.add(tab);

suppression de l'onglet actif

if Pages.ActivePageIndex>-1 then
begin
TTabSheet(TabSheet[Pages.ActivePageIndex]).free;
TabSheet.delete(Pages.ActivePageIndex);
end;

pense à créer et à détruire ta liste

TabSheet:=TList.create;
...
TabSheet.free;

[Jayceblaster]

Si ce n'est pas ça, je ne répond plus de rien

bon ben waskol je crois que tu ne répondras plus de rien car le "Dec(iNombrepage)" y était déja et ca marche pas avec

Je vais essayer la solution de exoseven