delphi - 自己的“就地激活”OLE 服务器

Question

我只想创建自己的 OLE 服务器，它支持就地激活。
例如，TOlecontrol我们可以执行以下操作：

OleContainer1.CreateObject('WORD.Document',FALSE);

那没问题。Word 文档嵌入到主申请表中。但是当我尝试时：

OleContainer1.CreateObject('Server.MyOleServer',FALSE);

MyOleServer 总是在新的单独的“服务器”窗口中打开 - 表单（我还检查了所有值OleControl1.doVerb()，并且OleControl1.AllowInPlace := true，但没有任何帮助。“服务器”是非常简单的应用程序，它只包含一个空表单......）

score 0 · Accepted Answer

您可以编写一个 VCL 组件，并将其包装为 ActiveX 控件，它应该可以用作具有就地激活的 ole 控件。

如果您想要类似控件的行为，请不要编写应用程序。写一个控件。如果您愿意，可以将 TPanel 子类化，并在其中放置您想要的任何控件。现在将其包装为 ActiveX 控件。

关于编写 ActiveX 控件的更多帮助，这也将适用于就地可编辑的 OLE 文档视图：

1 回答 1