Ok vielen Dank an alle,
ich glaub ich hab das Prinzip nu verstanden wie man Objekte in ein Array legt, hier nochmal das Ergebnis:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
BoxArray:
array[1..3,1..3]
of TCheckBox;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
begin
//Mach was
for i:= 1
to 3
do
for j:= 1
to 3
do begin
BoxArray[i][j]:= TCheckBox.Create(Self);
BoxArray[i][j].Parent:= Form1;
BoxArray[i][j].Top:= i * 17;
BoxArray[i][j].Left:= j * 17;
end;
end;
end.
Den Screen davon gibts als Attachment.