dynamisch erzeugtes Label löschen

[MadMason]

hi
hab ein weiteres problem mit tlabel
nachdem ich die nun dynamisch erzeugt habe will ich sie auch irgendwann wieder löschen

ich vergebe jedem label einen namen der form:

lab_Nr

die Nr kann ich ermitteln, allerdings hab ich keine idee wie ich das label dann löschen kann.

[Christian Seehase]

Moin MadMason,

je nachdem, wie Du sie erzeugt hast könnte

TLabel(FindComponent('lab_nr'+IntToStr(HierDieNummer))).Free; funktionieren.

Hast Du beim Create einen Owner mit angegeben würde es auch genügen einfach visible auf false zu setzen. Dann sind sie wenigstens nicht mehr zu sehen, und werden beim löschen des Owners automatisch mit gelöscht.

[MadMason]

danke das ist es

[MadMason]

hab doch noch ein problem:
wenn ich mit findcomponent nach einem label suche, dass ich bereits zur designzeit erstellt habe, funzt es

wenn ich aber ein dynamisch erzeugtes label nehme, dann funzt er es nicht

Delphi-Quellcode:

with TLabel.Create(GroupBox) do begin
 top:= 8;
 left:= 8;
 caption:= 'test';
 parent:= GroupBox;
 name:= 'ip_'+inttostr(getnumber(curr_addr) );
end;

TLabel(FindComponent('ip_'+inttostr(getnumber(s))).Free; getnumber, curr_addr und s sind variablen bzw funktionen

[sakura]

Der Owner ist nicht der Parent sondern das Form

Code:

with TLabel.Create([color=#ff0011]Self[/color]) do begin
[i][color=#4400ff]// oder[/color][/i]
with TLabel.Create([color=#ff0011]Form1[/color]) do begin
 top:= 8;
 left:= 8;
 caption:= 'test';
 parent:= GroupBox;
 name:= 'ip_'+inttostr(getnumber(curr_addr) );
end;

[Christian Seehase]

Moin sakura,

wenn die Deklaration

TLabel.Create(GroupBox) lautet, muss nur der Aufruf von FindComponent geändert werden:

z.B.
Form1.Groupbox1.FindComponent(...

[sakura]

Hi Christian,

das ist mir schon klar, aber ich persönlich bevorzuge die Delphi Methode alles über das Form zu initialisieren