Habs gerade hinbekommen.
Delphi-Quellcode:
var elem: array[0..10] of string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var test:tbutton;
test2:tedit;
begin
test:=tbutton.Create(form1);
test.Parent:=(form1);
test.Left:=20;
test.Top:=20;
test.caption:='huhu';
test.Width:=80;
test.Height:=22;
test.Name:='uggi';
elem[1]:='uggi';
test2:=tedit.Create(form1);
test2.Parent:=(form1);
test2.Left:=20;
test2.Top:=40;
test2.text:='huhu';
test2.Width:=80;
test2.Height:=22;
test2.Name:='uggi2';
elem[2]:='uggi2';
end;
procedure TForm1.Button2Click(Sender: TObject);
var
I: Integer;
begin
for I := 1 to high(elem) do
if elem[i]<>'' then
twincontrol(form1.FindComponent(elem[i])).left:=100;
end;
EDIT:
Ich sehe gerade, jetzt kann ich mir den Typ auch schenken *lol*
.
.
So, aktueller Stand.