Oder auf Alles, was zum Form gehört, richtig zugreifen.
z.B. statt PaintBox1 > Form1.PaintBox1 verwenden
Code:
procedure D_KO_8_zeichnen();
var
s: string;
i: integer;
begin
D_KO_8;
i := 1;
while i < 27 do
begin
s := IntToStr(Spielfeld_array[i,1]);
DrawBox([color=red]Form1.[/color]PaintBox1.Canvas.Handle, Spielfeld_array[i,2], Spielfeld_array[i,3], s);
inc(i);
end;
end;
Ach ja, wenn du die variante vom Dax verwenden willst, dann muß deine Prozedur natürlich auch in die Form-Definition eingetragen werden. (z.B. unter PRIVAT)