delphi 表格中加checkbox

最新推荐文章于 2022-03-01 12:12:59 发布

黑贝是条狗

最新推荐文章于 2022-03-01 12:12:59 发布

阅读量484

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/y281252548/article/details/115909476

版权

delphi 专栏收录该内容

143 篇文章 8 订阅

订阅专栏

尝试在表格中加 checkbox

procedure TfrmSum.dxtSumCustomDrawCell(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
  var AText: String; var AColor: TColor; AFont: TFont;
  var AAlignment: TAlignment; var ADone: Boolean);
const
  CtrlState : array[Boolean] of Integer = (DFCS_BUTTONCHECK,
                                        DFCS_BUTTONCHECK or DFCS_CHECKED);

begin

// DFCS_CHECKED or 0  选中  DFCS_TRANSPARENTor 0  不选中
  if AColumn.Caption = '选择' then
  begin
    ACanvas.FillRect(ARect);
    if  DrawFrameControl(ACanvas.Handle,
                         ARect,
                         DFC_BUTTON,
                         DFCS_CHECKED or 0) then
    begin
      ADone := True;
      AText := 'true';  //修改字段值为 true
    end;

  end;
end;