Probleme avec un TabSheet créé dynamiquement?

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:

---

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:

---

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

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

Code:

---

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:

---

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...:roll:

Code:

---

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...;)

Citation:

---

Je crois que ça marchera mieux...

---

Euh..ben non c'est toujours pareil ;)

Citation:

---

Envoyé par Jayceblaster

Euh..ben non c'est toujours pareil ;)

---

Ha ba heuuuuuuu... zut alors...
:lol:

Quand on ajoute un TabShheet, il faut faire ceci :

Code:

---

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:

---

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 :aie:

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

var TabSheet:TList;


création d'un onglet

Citation:

---

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

---

suppression de l'onglet actif

Citation:

---

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;

Citation:

---

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 :D

Je vais essayer la solution de exoseven ;)

Et pourquoi utilises tu un tableau d'abord, hein ? Quelle idée...:lol:

Bon, allez, essaies ça pour me faire plaisir (testé et approuvé par Waskol 8-) ) :

Bouton Ajouter :

Code:

---

1 2 3 4 5 6 7

procedure TForm1.Button1Click(Sender: TObject); var ATabSheet:TTabSheet; begin ATabSheet:=TTabSheet.Create(PageControl1); ATabSheet.PageControl:=PageControl1; ATabSheet.Caption:=IntToStr(PageControl1.PageCount); end;

---

Bouton Supprimer :

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Button2Click(Sender: TObject); var i:integer; ATabSheet:TTabSheet; begin i:=PageControl1.ActivePageIndex; ATabSheet:=PageControl1.Pages[i]; ATabSheet.PageControl:=nil; ATabSheet.Free; end;

---

Je te jure que ça marche :aie:
Plus de tableau, plus de problêmes :mrgreen:

Et en plus, qu'est-ce que c'est bô comme code :lol:

Ah oui c'est beau :lol:
maintenant je vais tester et je te dis quoi ;)