@ helmi
jop, das einzige was anders ist, ist das Parent
@ hoika
Erzeugung:
Delphi-Quellcode:
SetLength(Bilderup,Files.Count-2);
SetLength(Bilderupname,Files.Count-2);
for i:=low(Bilderup) to high(Bilderup) do
begin
{x,y festlegen}
Bilderup[i]:=TImage.Create(Form1);
Bilderup[i].Picture.LoadFromFile(...);
Bilderup[i].Left:=x;
Bilderup[i].Top:=y;
Bilderup[i].Width:=133;
Bilderup[i].Height:=100;
Bilderup[i].Parent:=PicsAtServer;
Bilderup[i].Center:=True;
Bilderupname[i]:=TLabel.Create(Form1);
Bilderupname[i].Caption:=IntToStr(i+1)+'.jpg';
Bilderupname[i].AutoSize:=True;
Bilderupname[i].Left:=x+(133-Bilderupname[i].Width) div 2;
Bilderupname[i].Top:=y+103;
Bilderupname[i].Parent:=PicsAtServer;
end;
PicsAtServer ist eine TScrollBox;
Freigabe:
Delphi-Quellcode:
for i:=high(Bilderup) downto low(Bilderup) do
begin
FreeAndNil(Bilderup[i]);
end;
for i:=high(Bilderupname) downto low(Bilderupname) do
begin
FreeAndNil(Bilderupname[i]);
end;