Discussion :

[forzaxelah]

BOnjour,

Je vous écris pour vous demander une aide pour supprimer des composants.

Rappel:
Lors de mon programme, quand je clique sur un champ de listbox je crée des TLabel en fonction de paramêtre:

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
Offset := 0;
NbPas := 0;
WHILE NbPas < ListboxMP.Count DO
   BEGIN
       WITH TLabel.Create(Self) DO
          BEGIN
              V:= StrToInt(ListBoxPN.Items[NbPas]);
              W := round(0.000315*V + 30);
              Parent:= TabSheet7;
              Left:= W;
              Font.Color := ClWhite ;
              Font.Style := [fsBold];
              Color := ClNavy ;
              Top:=25+Offset;
              Height:=13;
              Width:=155;
              Autosize:=false;
              Layout:=tlCenter;
              WordWrap:=True;
              Name:='TestPas'+ IntToStr(NbPas+1);
              Caption:= ListBoxMP.Items[NbPas]+ ' : ' + ListBoxPN.Items[NbPas] + ' Km';
              NbPas := NbPas+1;
              Offset := Offset + 16;
              OnMouseMove :=  DeplacerLabel;
           END;
     END;

Cepdnant je ne peux recliquer directement sur un autre champ car il me dira que les TLabel existe deja (Name: TestPas1,....)

Donc je souhaite d'abord effacer d'éventuelles Label avant d'en créer!

Voila le HIC! je ne sais pas comment faire et la onction TLabel.Delete(Self) n'existe pas!
Quelqu'un aurait une petite idée????

merki

[ryko]

Juste une petite suggestion :

à chaque création d'un label, tu ajoutes son NAME dans une StringList,
et avant de créer ton label, tu vérifies qu'il n'existe pas déjà dans ta StringList.

Et sans passer par une StringList intermédiaire :

Si tu veux absolument le supprimer avant de le recréer, tu fais une boucle sur les contrôles de ta fenêtre en cherchant un label dont le nom est 'TestPas'+ IntToStr(NbPas+1) puis tu le supprimes avec Free.

[Philippe Gormand]

Il faut utiliser la méthode Free.

Exemple :

Code :

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

1
2
 
  MonLabel.Free;

Tout est expliqué dans l'aide de DELPHI.

[ryko]

Voici un exemple à intercaler dans ton code :

Code :

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

1
2
3
4
5
6
7
8
   BEGIN
       for I := ComponentCount -1 downto 0 do
           if Components[I] is TLabel then
              if TLabel(Components[I]).Name='TestPas'+ IntToStr(NbPas+1)
                 then TLabel(Components[I]).Free;
 
       WITH TLabel.Create(Self) DO
          BEGIN

j'utilise une boucle for...downto car dans le cas d'une suppression de label, ComponentCount est décrémenté automatiquement et tu obtiendrais une erreur d'indice avec une boucle for...to

[forzaxelah]

j'ai écrit un truc comme ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Offset := 0;
NbPas := 0;
WITH TLabel DO
BEGIN
  WHILE NbPas < ListboxMP.Count DO
    BEGIN
     Name:='TestPas'+ IntToStr(NbPas+1);
     Free;
     NbPas := NbPas+1;
    END;
END;

est ce bon,?

[forzaxelah]

excusez moi j'avais pas vu vos réponses

[anapurna]

salut

du fait qu'il est mis un paramettre dans son create il n'est pas obligé de les detruire manuellement .
à la fermeture de la fenettre il seront tous detruit automatiquement
sinon pour detruir un simple tabel utilise
la fonction findcomponent une fois trouver l'instance tu fait un free

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function Maform.DetruitLabel(Name : String) : Boolean;
var
  lb : Tlabel
begin
   Result := False;
   lb :=  Tlabel (FindComponent(Name));
   if assigned (lb) Then
   begin
      Freeandnil(lb);
      Result := True;
   end;  
end;

@+ Phil

[Soulama]

Salut,
si tu crée un compo come sui:

Code :

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

1
2
 
   lblObj:= TLabel.Create(Self);

le programme soccupe de leffacement du label ala fin, alor ta pa besoin de leffacer explicitement, parcontre si tu fais lblObj:= TLabel.Create(nil);
faut explicitement faire un FreeAndNil(lblObj) a un Moment donné(OnDestroy Event par example).