checkbox全选

  • 格式:doc
  • 大小:54.00 KB
  • 文档页数:2

//-----CheckBox1全选------------------------------------------------------------
procedure TFrm_Bga_Repair_infoIIII.CheckBox1Click(Sender: TObject);
var
i: Integer;
begin
inherited;
if CheckBox1.Checked then
for I := 1 to grid.RowCount-1 do
grid.Cells[0,i]:='yes'
else
for I := 1 to grid.RowCount-1 do
grid.Cells[0,i]:='no' ;

end;

效果图如下图: