delphi - 自定义 dbgrid 和 Picklist 问题

Question

我正在创建自己的 DBGRid，除了选择列表之外，它工作正常。无论为网格设置什么按钮样式，它总是显示就地编辑器，既不显示选择列表，也不显示椭圆按钮!

我无法弄清楚我正在犯的错误:(。这是相关代码:

function TMyDBGrid.CreateEditor: TInplaceEdit;

begin
result:=TInplaceEdit.Create(self);

end;

function TMyDBGrid.GetEditStyle(ACol, ARow: integer): TEditStyle;
begin
 case Columns[ACol].ButtonStyle of
  cbsAuto : Result:=esPickList;
  cbsNone : result:=esSimple;
  cbsEllipsis : result:=esEllipsis;
end;
end;

构造函数和析构函数只需调用 inherited ，构造函数只需为网格设置一些颜色。

Answer 1

没有选择列表或按钮的原因是您使用 TInplaceEdit 作为单元格编辑器，它不支持您所需的功能。

TDBGrid 使用继承自 TInplaceEditList 的 TDBGridInplaceEdit 作为其就地编辑器，该编辑器集成了 TCustomListbox它的下拉列表、绘制和管理编辑按钮。