Bonjour,

Je suis en train de réaliser un petit outil et j'ai un soucis pour supprimer un élément d'un tableau d'objets... Je m'explique :

J'ai un TPageControl ou je veux ajouter dynamiquement des TTabSheet, jusque la ça va, mais dans ces TTabSheet j'y ajoute un TFrame (TFraTech), ce qui veut dire que chaque TTabSheet est parent d'un TFraTech...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TFrmMain.TlbAjouterClick(Sender: TObject);
var i : integer;
begin
     PCzones.AddTabSheet;
     i := PCzones.PageCount-1;
 
     setlength(TTech,PCzones.PageCount);
     Ttech[i] := TFraTech.Create(PCzones.Pages[i]);
     ttech[i].Parent := PCzones.Pages[i];
     TTech[i].Align:=alClient;
     PCzones.Pages[i].Caption:='Zone ' + IntToStr(PCzones.PageCount);
end;
Pour l'ajout ça fonctionne, je n'ai pas de soucis, mais comment je peux permettre à l'utilisateur de supprimer une page ? Je dois certainement déplacer un objet TFraTech en faisant TTech[i] := TTech[i]+1 et supprimer le TTabSheet mais ça ne fonctionne pas...
Quelqu'un pourrait il m'aider avec un bout de code pour supprimer et le ttabsheet et le TFraTech qui lui est associé ?

Merci