procedure TForm5.Button1Click(Sender: TObject); var I: Integer; begin AdvStringGrid1.RowCount := ;//一共50行0..49 AdvStringGrid1.ColWidths[] := ;//改变第一列的宽度. AdvStringGrid1.AddCheckBoxColumn();//表示这一列都需要复选框 //第0行是标题头,所以从1..49开始 do begin //AdvStringGrid1.