Discussion :

[gmc]

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

[LadyWasky]

Salut,
Personellement, j'écrirais ceci à la place :

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
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(_advtabsheet);
   _frameVide.Parent := _advtabsheet;
    _frameVide.Name := 'frameAction' + FormatDateTime('mmddHHnnss', now);

Si la mémoirez n'est toujours pas correctement libérée, c'est peut parce que la classe TFrame ne libère pas tous ses objets et ressources de lors de sa destruction (c'est assez courant en Delphi, exemple : avec un TForm tu perds toujours 4Ko lors de sa destruction, avec TFrame, ça doit être pareil )

[gmc]

Merci pour ta réponse,

J'ai également rencontré un autre problème que j'ai résolu, mais je préfére en parler sur le forum, ca peux aider certains.
Dans la frame, il y avait un TActionList, et celui ci ne se libérer pas totalement après fermeture de la frame.
En fait, il sagit d'un bug dans Delphi 7, qui a été corigé dans les versions supérieurs.

Il faut modifier le code source de la VCL de Delphi et la recomplier pour corriger ce bug.
Voici le code à remplacer : http://qc.borland.com/wc/qcmain.aspx?d=7879

++