var
Form1: TForm1;
Edit : array [1..31,0..9] of TEdit;
LTag : array [1..31] of TLabel;
cbox : array [1..31] of Tcheckbox;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var i,j,k,l : INTEGER;
wert : Boolean;
begin
{++++++++++++++++++++++++Erstellen der Elemente++++++++++++++++++++++++++++++++}
k:=0;
l:=0;
FOR i:=1 TO 31 DO
BEGIN
FOR j:=0 TO 5 DO
BEGIN
IF i=19 THEN k:=162;
IF i=19 THEN l:=720;
Edit[i,j] :=TEdit.Create(Form1); // Erster Befehl
Edit[i,j].Left :=40*i+28-l;
Edit[i,j].Top :=20*j+36+k;
Edit[i,j].Height :=21;
Edit[i,j].width :=33;
Edit[i,j].visible:=False;
Edit[i,j].Parent :=Form1; // Letzter Befehl
END;
LTag[i] :=TLabel.create(Form1); // Erster Befehl
LTag[i].Left :=40*i+28-l;
LTag[i].Top :=20+k+2;
LTag[i].Autosize :=TRUE;
LTag[i].Parent :=Form1; // Letzter Befehl
cbox[i] :=Tcheckbox.Create(Form1); // Erster Befehl
cbox[i].left :=40*i+38-l;
cbox[i].Top :=155+k+2;
cbox[i].width :=21;
cbox[i].TabStop :=False;
cbox[i].Parent :=Form1; // Letzter Befehl
//++++Ereigniszuweisung
cbox[i].onclick := CboxEreignisClick;
Edit[i,0].onchange := EditEreignisChange;
Edit[i,0].onexit := EditEreignisExit;
//----Ereigniszuweisung
END;
{------------------------Erstellen der Elemente--------------------------------}