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...
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...
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;
Quelqu'un pourrait il m'aider avec un bout de code pour supprimer et le ttabsheet et le TFraTech qui lui est associé ?
Merci
Partager