Delphi 操作 AdvStringGrid一些笔记

最新推荐文章于 2026-05-12 05:25:48 发布

原创最新推荐文章于 2026-05-12 05:25:48 发布 · 5.9k 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

Delphi 专栏收录该内容

15 篇文章

订阅专栏

本文详细介绍了如何将数据库中的数据写入到AdvStringGrid中，并通过CheckBox实现交互操作，包括读取CheckBox状态和响应鼠标点击事件。

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