delphi - 我可以通过 TOleContainer 或其他方式直接在 Delphi 应用程序中实例化 ActiveX 控件吗？

Question

TOleContainer 当然可以插入 OLE 对象，如 Word 文档。但它似乎不适用于 ActiveX。当然，我知道 Delphi 创建 ActiveX 包装器的 IDE 能力。如果我想在运行时创建控件而不创建包装器并将其安装到 IDE 中怎么办？

该控件已注册，因此与此问题不同，我不需要免注册 com。我只需要一些关于如何启动动态 ActiveX 容器的想法或示例。

Answer 1

与 TOleContainerActiveX 控件一起工作时，您只需ProgID将 Activex 控件的属性传递给CreateObject方法，然后使用后期绑定访问 ActiveX 的属性。

检查此示例，它在运行时在 TOleContainer 内创建 Windows Media Player ActiveX 控件。

OleContainer1.CreateObject('Wmplayer.OCX.7', False);
OleContainer1.OleObject.URL:='F:\Music\Iron Maiden - The number of the beast.mp3';
OleContainer1.OleObject.Controls.Play;