Hi
Du könntest dieses Problem allenfalls auch mit einer Liste lösen.
Dieses würde dann ungefähr so aussehen:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| ... Tform1.Button1Click...
var i : integer;
PObjectList: TObjectList;
begin
PObjectList := TObjectList.create;
for i := 1 to 5 do begin
MyLabel := TLabel.Creat(self);
MYlabel.Parent := self;
Mylabel.Name := 'MYLabel' + intToStr(i);
Mylabel.Caption := 'Meine Label';
PObjectList.add(Mylabel);
end;
end; |
Um dann wieder auf das Label zugreiffen zu können, kannst du direkt mit TLabel(PObjectList.Items[index des labels]).Caption := 'Das hier ist neuer Text'; darauf zugreiffen.
Das TLabel vorweg dient zum Casten des Labels, da die Liste nicht weiss, welcher ObjectTyp sich an der Adresse befindet, wo der Pointer drauf zeigt. Einfach so nachbasteln und es sollte funktionieren. Ansonsten Online-Hilfe zur Hand nehmen
Mfg
Rooof
Jedes Problem ist lösbar, wenn du dich nicht von deinem eigenen Denken und von deinem eigenen Verstand leiten lässt...
