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