Hier erzeugt ein Button-Klick ein neues Bild.
Diese Bilder kann ich dann zB. mit einer for-schleife mit
Delphi-Quellcode:
for i := 0 to anzahl-1 do
begin
Figuren[i].left := .... ;
Figuren[i].visible := false;
// usw...
end;
Hier der Code:
Hinweis man kann auch mit einer Schleife problemlos 100 Bilder initilaisieren.
Delphi-Quellcode:
var
Form1: TForm1;
Figuren : Array of Timage;
anzahl : Integer;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
anzahl := anzahl + 1;
setlength(Figuren,anzahl);
Figuren[anzahl-1] := Timage.Create(Form1);
with Figuren[anzahl-1] do
begin
parent := form1;
top := high(Figuren) * 60;
left := high(Figuren) * 30;
Picture.LoadFromFile('C:\test.bmp');
show;
end;
end;
initialization
anzahl := 0;
setlength(Figuren,anzahl);
end.