Discussion :

[sebyo]

Bonjour a tous,



J'ai un petit soucis dans mon application ....comme tout le temps ....lorsqu'on créé un element ou autre il faut biensur le détruir ...j'ai su le créer avec votre aide mais je n'arrive pas a les détruir....


j'ai donc sur mon application un PageControl avec la premiere tabsheet qui est static . puis je crée dynamiquement d'autres tabsheet avec pour chaques tabsheet une stringgrid associée a la tabsheet ...j'ai donc deux élément créés que je n'arrive pas a détruir...


pour info je créée les élément de cette maniere :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
     tbs := TTabSheet.Create(self);
     tbs.PageControl := Classeur1;
     tbs.Caption := 'Classeur n°' + intToStr(Classeur1.PageCount);
 
     Activegrid := Tstringgrid.Create(self);

merci des réponses qui seront apportées

© Seb ®

[Tardiff Jean-François]

Bonjour

Vous avez défini un control.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
  MyControl: TControl;

Vous l'avez créer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
  My control := TControl.create(...);
 Mycontrol.Parent := ...
etc.

Pour le détruire vous pouvez utiliser free ou freeand nil

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  Mycontrol.Free;

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Freeandnil(Mycontrol);

Groso modo Freeandnil fonctionne de la manière suivante
if (Object a detrruire) <> nil then begin
(Object a detruire).free;
(Objecte a detruire) = nil;
end;

C'est pratique, car plusieurs freeandnil(MyObject) ne produite pas de bug et il est possible de tester si MyObject est gréer (<> nil)

[Paul TOTH]

les composants ayant été créés avec un Owner seront automatiquement détruits avec celui ci.

[sebyo]

yes merci les mec mais j'ai trouvé en lisant vos réponses ca m'a fait pensé que je créé des élément dynamique attachés a un page control qui étais statique ...du cou j'ai tout passé en dynamique et c'est beaucoup mieux ...ca me donne ceci


pour la création :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
     classeur1 := TPageControl.Create(self);
     Classeur1.Parent := Tableur;
     Classeur1.Align := alBottom;
     classeur1.align :=  Altop;
     Classeur1.Anchors := [akLeft,akBottom];
     classeur1.Height := 411;
     tbs := TTabSheet.Create(self);
     tbs.PageControl :=   classeur1;
 
     tbs.Caption := 'Classeur n°' + intToStr(Classeur1.PageCount);
     Activegrid := Tstringgrid.Create(self);

et après je libère par étape

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TTableur.BtnFermerClick(Sender: TObject);
 
begin
   try
     FreeAndNil(activegrid);
     FreeAndNil(tbs);
     FreeAndNil(classeur1);
     Except on E:exception do
     end;
  close;
end;

merci pour les réponses ca m'a bien aidé a mieux chercher le pk du comment !!

© Seb ®

[Paul TOTH]

c'est bien ce que je disais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TTableur.BtnFermerClick(Sender: TObject);
 
begin
   try
     FreeAndNil(activegrid); // sera fait par le free suivant
     FreeAndNil(tbs); // sera fait par le free suivant
     FreeAndNil(classeur1); // sera fait lors de la libération du Tableur
     Except on E:exception do
     end;
  close; // tout est libéré si Action = caFree...
end;