delphi - 带有 LiveBindings 的自定义网格 - EBindCompError 'No list control editor available'

Question

我正在设计自己的 Delphi XE5 自定义网格。我对 VCL 不感兴趣，所以我只使用 FireMonkey。由于它必须具有数据感知能力，因此 LiveBindings 是必须的。这项任务很复杂，所以我会尝试只询问非常具体的问题。

前言。我发现 FireMonkey(就像旧的 VCL 一样)有点难以扩展。它确实广泛使用接口(interface)，但仍然有很多代码不可重写或引用私有(private)成员。我发现自己必须复制整个类才能更改 5-10 行行为。

我现在拥有的是(ME.Grid):

TCustomGrid -> TMECustomGrid -> TMEGrid (my custom grid)
TColumn -> TMEColumn -> TMExxxColumn (specific custom column classes)
Txxx -> TMExxxCell (specific custom grid cell classes)

全部通过RegisterFmxClasses注册。 TMEGrid 也已向 RegisterComponents 注册。

我还有(ME.Bind.Grid):

TMELinkGridColumnDescription = Class(TLinkGridColumnDescription)
TMELinkGridToDataSourceControlManager = Class(TInterfacedObject,
  ILinkGridToDataSourceControlManager)
TMELinkGridToDataSourceColumnFactory = Class(TLinkGridToDataSourceColumnFactory)

...后者已向 RegisterLinkGridToDataSourceColumnFactory 注册

所有这一切都只需最少的实现。之后我将添加/更改行为。我现在的目标是在表单上放置一个 TMEGrid，放置一些数据集并让绑定(bind)对我的网格执行某些操作。

我得到的(当应用程序启动时)是 EBindCompError '没有可用的列表控件编辑器'。

由于当我从 TGrid 派生 TMEGrid 时这有效(由于其他原因这是 Not Acceptable )，所以我检查了一下，发现 Bind.Editors 显式引用了 TGrid(而不是 TCustomGrid)。所以我写了自己的(ME.Bind.Editors):

TMEBindListGridEditor = Class(TBindListEditorCommon,
  IBindListVirtualEditor,
  IBindGridEditor,
  IBindListVirtualEditorScope)
TMEBindGridEditorFactory = Class(TBindEditorFactory)

...后者已向 RegisterBindEditorFactory 注册

但这似乎并没有改变任何事情。我仍然收到相同的错误消息。

有什么想法吗？

请记住，所有组件、工厂等......都在它们自己的包(MEComps)中。该项目只有一个带有网格和其他一些东西(导航器，一些按钮)的表单。

编辑:我想我找到了线索。我从测试项目中检查了我的源代码，发现

RegisterBindEditorFactory([TMEBindGridEditorFactory]);

代码行未编译到项目中(我不能在那里放置断点)。显然它没有被纳入该项目，这当然不是一个好兆头。因此，我检查了使用对应单元(FMX.Bind.Editors)的位置，我发现了这个非常有趣的 BindCompFMXReg 单元，但我没有等效的单元。我会研究这个，看看是否能有所进展。

Answer 1

首先我很抱歉，我是巴西人，我不会说英语，所以我使用了谷歌翻译:)-，但我想帮助你......

我也遇到了同样的问题，我创建了一个动态构造查询和列的网格，但是为了激活这个网格，生成了错误 EBindCompError。

发生这种情况的原因是 LiveBindigs 结构需要一个与设计时使用的类型相同的编辑器。

我查看了 Delphi 代码，找到了一个适合我的案例的简单解决方案，该解决方案也适合您的案例。

我导入了库 Fmx.Bind.Editors 并声明了一个 TBindListGridEditor 类型的变量，并在我的 Grid 的 Create 方法中创建了该变量，如下例:

MyUnit unit;

interface

uses
   Fmx.Bind.Editors ...

type
   TMyGrid = class (TGrid)
   private
    FBindingEditor: TBindListGridEditor;
   public
     constructor Create (AOwner: TComponent); override;
   end;

Implementation

constructor TFBGrid.Create (AOwner: TComponent);
begin
inherited Create (AOwner);
FBindingEditor: = TBindListGridEditor.Create (Self);
end;

end.

我已经帮你了。