gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-01 18:04:29 31 4
gpt4 key购买 nike

我正在设计自己的 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 单元,但我没有等效的单元。我会研究这个,看看是否能有所进展。

最佳答案

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

我也遇到了同样的问题,我创建了一个动态构造查询和列的网格,但是为了激活这个网格,生成了错误 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.

我已经帮你了。

关于delphi - 带有 LiveBindings 的自定义网格 - EBindCompError 'No list control editor available',我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/23246951/

31 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com