procedure TForm5.Button1Click(Sender: TObject); var I: Integer; begin AdvStringGrid1.RowCount := 50;//一共50行0..49 AdvStringGrid1.ColWidths[0] := 50;//改变第一列的宽度。 AdvStringGrid1.AddCheckBoxColumn(0);//表示这一列都需要复选框 //第0行是标题头,所以从1..49开始 for I := 1 to 49 do begin //AdvStringGrid1.AddCheckBox(0, I, False, False); //可以写在这里, 表示某个单元格 需要增加 复选框 AdvStringGrid1.Cells[1,I] := '第二列' + I.ToString; AdvStringGrid1.Cells[2,I] := '第三列' + I.ToString; end; end; procedure TForm5.Button2Click(Sender: TObject); begin AdvStringGrid1.Colors[1,3] := clBlue;//直接把某一个单元格的背景色修改 AdvStringGrid1.ColorsTo[1,5] := clBlue; //从白色渐变到蓝色 AdvStringGrid1.FontColors[1,7] := clRed; //修改某一个单元格字体的颜色 AdvStringGrid1.Color := clYellow; //整体背景变成黄色 end;