摘要： procedure TFrmSysIni.FormCreate(Sender: TObject);var I:Integer; Col,Row:Integer;//第几列begin TabelList:=TStringList.Create; DM1.ADOC1.GetTableNames(TabelList); Col:=0; Row:=0; For I:=0 to TabelList.Count-1 do begin if Col>13 then begin Col:=0; Row:=Row +1 ; end; CheckList:=TRzCheckBox.Create(Self); 阅读全文