Bonjour,

J'ai un souci avec le composant TAdvTabsheet, de la suite TMS.
J'arrive bien a créer un tabsheet pour le tabsheetcontrol, mais lorsque que je créer une frame à l'intérieur de ce tabsheet, celle-ci ne se libére pas de la mémoire automatiquement lorsque le tabsheet est fermé.
Quel est la solution ?

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
19
 
var
 _advtabsheet : TAdvTabsheet;
 _frameVide : TFrame;
begin
 
   // NB : la propriete FreeOnClose est à True de "AdvPageControlGauche"
   _advtabsheet := TAdvTabsheet.Create(AdvPageControlGauche); 
   _advtabsheet.Name := 'Action' + inttostr(action.id_action);
   _advtabsheet.AdvPageControl := AdvPageControlGauche;
   _advtabsheet.Caption := 'Action n°' + inttostr(action.id_action);
   _advtabsheet.Color := $00F7E6DE;
   _advtabsheet.Colorto := $00E5AB8E;
   _advtabsheet.ShowClose := true;
    AdvPageControlGauche.ActivePage := _advtabsheet ;
 
   _frameVide := TFrame.Create(AdvPageControlGauche);
   _frameVide.Parent := _advtabsheet;
   _frameVide.Name := 'frameAction' + FormatDateTime('mmddHHnnss', now);