Delphi 操作 AdvStringGrid一些笔记

procedure TForm1.AdvStrGrdMainCheckBoxMouseUp(Sender: TObject; ACol,
  ARow: Integer; State: Boolean);
  var
  CheckState:Boolean;
begin
   AdvStrGrdMain.GetCheckBoxState(ACol,ARow,CheckState);
   if CheckState then
    ShowMessage('Yes')
   else
      ShowMessage('NO');
end;

将数据库中的数据写入到AdvStringGrid 中，并设定第一列为CheckBox 类型：

    AdvStrGrdMain.RowCount:= RecordCount+1;
    for I := 1 to RecordCount  do
    begin
      AdvStrGrdMain.AddCheckBox(0,I,False,False);

      AdvStrGrdMain.Cells[1,I]:=FieldByName('DeptID').AsString;
      AdvStrGrdMain.Cells[2,I]:=FieldByName('DeptName').AsString;
      Next;
    End;

单击 CheckBox 时，对CheckBox状态进行读取：