Question

关于delphi中dbgrid如何增加checkbox列，实现行的选中

我在网上看到了这段代码
但我在DBGrid1DrawColumnCell事件中加入代码后，运行没有复选框出现，不知道怎么回事,代码如下
const CtrlState: array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED);
begin
if column.Field.DataType=ftboolean then
begin
DBGrid1.Canvas.FillRect(rect);
drawframecontrol(DBGrid1.Canvas.Handle,rect,dfc_button,ctrlstate[column.Field.asboolean]);
end;
end;

Answer 1

if column.Field.DataType=ftboolean then 这句要求，字段是布尔型才会出现复选框。你的那列是不是布尔型的？