使用DrawCell时dbgrid绘制错误？

编程问答 2022-06-09

问题描述

卓悦。 我正在使用来自KControls的kdbgrid for lazarus。 1-当我添加这个时：

procedure TForm1.KDBGrid1DrawCell(Sender: TObject; ACol,ARow: Integer;
  R: TRect; State: TKGridDrawState);

begin
    if (aCol <> 1) or (aRow = 0) then begin
        Exit;
    end;
      if (aCol=2) and (aRow > 1) then begin
        KDBGrid1.CellRect(aCol,ARow,R);
        R.Left := R.Right - (R.Bottom - R.Top);
        Button3.BoundsRect := R;
        KDBGrid1.Editor.Assign(Button3);
      end;
end

我的dbgrid无法正确显示。

所以我不能以永久的方式向网格或图像的单元格添加任何按钮。 我阅读了帮助（kgrid_manual.pdf），但没有找到任何帮助。

非常感谢。

my dbgrid

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

delphilazaruspascal