Slet dynamisk label

Det fjerner den label du har sat til at \"pege\" på FLabel det er nok fordi du opretter alle dine label\'s med FLabel variablen, du skal ha\' en variable for alle dine label\'s ellers kan du ikke få fat i dem igen

/Martin

Øh NÅ.
Og hvordan gør jeg lige det ???

f.eks sådan

FLab := TStringList.create;
for Cnt := 0 to AntalLabels do
begin
  FLab.AddObject(\'Lab\'+IntToStr(Cnt),TLabel.Create); 
end;

Så har du en FLab liste med ref\'s til alle de labels du har oprettet

..
..
  public
    FLabelList : TList;
..

procedure TForm1.OnCreate(sender...);
begin
  FList := TList.Create;
end

procedure TForm1.OnDestroy...
begin
  FList.Free;
end;

procedure TForm1.CreateLabel(Caption : String);
Var
  Lbl : TLabel; // Temp
begin
  // Opret ny label
  Lbl := TLabel.Create(self);
  Lbl.Caption := Caption;
  Lbl.OnClick := OnDynLabelClick;
  // Gem en pointer til den nye label,
  // of gem dens index i tag variablen
  Lbl.Tag := FList.Add(Lbl);
end;

procedure TForm1.DeleteLabel(Idx : Integer);
begin
  if FLabel[Idx] <> NIL Then
  begin
    (FLabel[Idx] AS TLabel).Free;
    FLabel[Idx] := NIL;
  end;
end;

Procedure TForm1.OnDynLabelClick(Sender : TObject);
begin
  Deletelabel((Sender AS TLabel).Tag);
end;

FList eq FLabelList

Hej djernaes
Jeg er lige ved at prøve dit forslag
men jeg får en fejl der siger:
Undeclared identifier: \'FList\'
Hvad er der galt ??

du skal skrive


  public
    FList : TList;
øverst oppe, se hans kommentar FList eq FLabelList