Discussion :

[ouldfella]

Bonjour,
comment savoir si un composant label1 créé dynamiquement qu'il existe, pour le détruire ?
c-à-d
un programme qui crée un label dynamiquement et une procedure qui test si label1 existe on le détruit
merci

[Cl@udius]

Salam,

Je pense que ceci devrait faire l'affaire:

Code :

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

1
2
 
if Assigned(Label1) then Label1.Free;

@+ Claudius

[ouldfella]

merci pour la réponse,
mais, le probleme c'est que le nom du composant est affecté dynamiquement,
c-à-d
il n'est pas forcement que sont nom est label1
il peut être label2

[ero-sennin]

Salut,

Si tu connais le nom de ton composant, tu peux utiliser FindComponent() ;

Exemple :

Code :

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

Label:=TLabel(Form1.FindComponent('Label1'));

Ce qui est en rouge, c'est le Name du label créé dynamiquement.

[edam]

dabort comment tu crée ton composant, et comment tu lui attribut un nom
(un nom déjà existant :labelx:TLabel)
ou par example

Code :

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

1
2
3
4
5
6
7
8
9
 
var  
       i:integer;
       lab:TLabel;
begin
      i:=1
      while Form1.FindComponent('Label'+inttostr(i))<> nil do inc(i);
      //tu crée le label i
end;

[ouldfella]

voilà comment je créée les composant :

Code :

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

1
2
3
4
5
6
 
bnum:=1;
   lab:= TQRLabel.Create(Self);
   lab.Parent :=form1;
   lab.Name :='b'+inttostr(bnum);
   bnum := bnum +1;

[edam]

Salut,

Si tu connais le nom de ton composant, tu peux utiliser FindComponent() ;

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var  
   i:integer;
   label:TLabel;
begin
     for i:=1 to dnum-1 do
        begin
           Label:=TLabel(Form1.FindComponent('b')+inttostr(i));
           label.free;
        end;

a testé