Bei dieser Procedure bekomme ich eine Zugriffsverletzung (Anhang)
direkt beim Start (Wann auch sonst
) auftritt. Ich weis nicht was dazu führt ...
Normalerweise müsste das doch gehen, oder ?
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var i,j : Integer;
begin
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;