Delphi 操作 AdvStringGrid一些笔记

最新推荐文章于 2021-06-09 22:01:30 发布

YmirBoy

最新推荐文章于 2021-06-09 22:01:30 发布

阅读量5.6k

点赞数

分类专栏： Delphi

本文链接：https://blog.csdn.net/YmirBoy/article/details/8545500

版权

Delphi 专栏收录该内容

15 篇文章 0 订阅

订阅专栏

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状态进行读取：