Hallo,
so würds gehen:
Delphi-Quellcode:
for i:=0 to 50 do
begin
ImSchuesse[i] := TImage.create(self);
with ImSchuesse[i] do
begin
Picture.Graphic.Assign(Strich.Graphic);
Parent := Form1; //oder welcher Parent auch immer!
end;
end;
Anzahl:=1;
Und nicht vergessen, die Images im OnDestroy der Form wieder freizugeben
[Edit]
Immer das zu schnelle schreiben! Code bei Assign richtig gestellt.
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<