Schachbrett - Komprnenten ansprechen

[axelf98]

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.