Hi!
ich vermute mal, dein Array ist zu klein definiert.
Probier es mal so:
Delphi-Quellcode:
var
Form1: TForm1;
Spielfeld : Array[0..832] of TSpielfeld;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var i,j,feld : Integer;
begin
feld:=0;
for i := 0 to 25 do
begin
for j := 0 to 31 do
begin
Spielfeld[Feld] := TSpielfeld.Create(Self);
with Spielfeld[Feld] do
begin
Parent := Form1;
Left := i*38 + 20;
Top := j*18 + 10;
Autosize := true;
Cursor := crHandPoint;
Hint := ' ';
OnClick := Imageladen;
OnMouseMove := ShowHint2;
Nr := Feld;
end;
inc(Feld);
end;
end;
end;
Ciao Frederic