var checkb:TCheckBox; implementation ………… procedure TForm1.FormCreate(Sender: TObject); var checkb :array[1..5] of TCheckBox; i:integer; begin for i :=1 to 5 do begin checkb[i]:=TCheckBox.Create(GROUPBOX1); checkb[I].Parent:=GROUPBOX1; checkb[I].Visible:=TRUE; checkb[I].Left:=6; CHECKB[I].Top:=I*17; end;
checkb:TCheckBox;
implementation
…………
procedure TForm1.FormCreate(Sender: TObject);
var checkb :array[1..5] of TCheckBox;
i:integer;
begin
for i :=1 to 5 do
begin
checkb[i]:=TCheckBox.Create(GROUPBOX1);
checkb[I].Parent:=GROUPBOX1;
checkb[I].Visible:=TRUE;
checkb[I].Left:=6;
CHECKB[I].Top:=I*17;
end;