Discussion :

[animalx123]

Bonjour ,

J'ai un souci à propos de la destruction de plusieurs objets avec Delphi xe3. J'ai créé des tlabel dynamiquement dans une boucle selon les résultats de ma database
et le problème est que quand je veux changer de résultats il faut que je les supprime et crée de nouveaux label. Mais s'ils sont créés dynamiquement, ils n'existent pas dans la "form", vous voyez ... Comment les détruire après un changement de résultat ?

Voici mon code :

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
20
21
22
23
24
25
26
27
28
 
procedure TForm5.ComboBox1Change(Sender: TObject);
var
cat,tit:string;
i,xxx,n:integer;
begin
self.RemoveComponent(tlabel);
 
xxx:=85;
n:=1;
 cat:=combobox1.Items.Text;
 self.ADOQuery1.Prepared:=true;
self.ADOQuery1.SQL.Text:='select title form discution d inner join cathegorie c on d.id_cat=c.id_cat where'+cat+'=nom_cat';
self.ADOQuery1.ExecSQL;
for i:=0 to self.ADOQuery1.DataSetField.FieldCount-1  do
begin
  with tlabel.Create(self) do
    begin
      Parent :=self;
 caption:=self.ADOQuery1.Fields.DataSet.Fields.ToString;
 top:=  xxx;
 left:=32;
 name:='lab'+ inttostr(n);
    end;
    self.ADOQuery1.Next;
    xxx:=xxx+10;
    n:=n+1;
end;

Merci.

[Ph. B.]

Bonjour,

et le probleme est quand je veux changer de resultats il faut que je les suprime et cree de nouveaux label ,mais si il son cree dynamiquement ils existent pas dans la forme vous voyez ...

Eh bien si, du moment qu'ils ont été créés et que leur propriétaire (Owner) est défini comme étant la fiche, il existent dans la fiche...
TLabel descend d'un TControl. Si on parcourt la liste de des contrôles de la fiche (Self.Controls, Self étant une instance de TForm5), on va les retrouver ainsi que les autres contrôles dont la fiche est parente.

comment les detruire apres un changement de resultat

Il faut déjà pouvoir les identifier de manière non ambiguë avant de pouvoir les supprimer. Cela doit être fait lors de la création, soit avec un nom qui indique leur création dynamique et qui n'est pas réutilisé par un autre label créé statiquement, ou ailleurs dynamiquement, soit avec un autre élément comme un tag (TLabel.Tag).

Ensuite lorsqu'on veut supprimer ces labels créés dynamiquement, il faut parcourir la liste des contrôles de la fiche, identifier les contrôles, les détruire et les retirer de la liste. Le contrôle est également référencé en tant que composant dont la fiche est propriétaire (tlabel.Create(self)). il faut également le retirer de cette liste.

Peu ou prou, cela donne :

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
 i: Integer;
 AControl: TControl;
//...
  for i := self.ControlCount - 1 downto 0 do
  begin
    // Je considère que les contrôles créés dynamiquement ont été tagués avec la valeur 100 !
    // que leur Parent est Self  (Parent := Self)
    // que leur propriétaire est Self (Create(Self))
    if (Self.Controls[i] is TLabel) and (Self.Controls[i].Tag = 100) then
    begin
      AControl := Self.Controls[i];
 
      Self.RemoveControl(AControl);   // Parent := Self
      Self.RemoveComponent(AControl); // Create(Self)
      AControl.Free;
    end;
  end;

Attention, je parcours la liste des contrôles, donc ce code n'est valide tant que les contrôles créés ont pour Parent et Owner le même contrôle.

[Lung]

Une autre solution qu'une j'utilise pas mal, c'est de stocker dans une TObjectList des pointeurs sur les objets qui m'intéressent (ici des label) pour pouvoir les retrouver plus tard.

[guillemouze]

Une autre solution qu'une j'utilise pas mal, c'est de stocker dans une TObjectList des pointeurs sur les objets qui m'intéressent (ici des label) pour pouvoir les retrouver plus tard.

Il me semble qu'il existe même un TComponentList qui gère aussi le retrait automatique si il reçoit une FreeNotification (Le fait de stocker des composants visuels peut être dangereux si on ne gère pas les FreeNotification)