Delphi 11 Alexandria中从DLL创建组件失败的解决方案咨询

核心问题分析 #

你遇到的cannot assign a TFont to a TFont错误，本质是Delphi新版本中VCL类实例的模块隔离性导致的：主程序和DLL是独立的模块，即使类名完全相同（如TFont），它们的类指针和RTTI信息不共享，直接跨模块赋值对象会触发类型校验失败。TSynPasSyn关联SynMemo失败也是同理——跨模块传递组件对象引用会破坏VCL的组件生命周期管理。

正确实现方案 #

方案1：优先使用Runtime Packages替代纯DLL #

Runtime Packages（运行时包）会让主程序和包共享同一个VCL类实例，从根源上解决类不兼容问题：

1. 主程序和DLL项目都勾选Project Options > Packages > Build with runtime packages
2. 确保两者引用的包完全一致（包括VCL核心包和SynEdit相关包）
3. 编译时保持Delphi版本、组件版本完全同步

方案2：纯DLL模式下的安全实现（无Runtime Packages） #

如果必须用纯DLL，需通过句柄传递+内部组件创建+属性值传递的方式，避免跨模块对象交互：

主程序代码

type
  // 定义DLL导出函数类型
  TCreateMemoProc = procedure(ParentHandle: HWND); stdcall;
  TCreateSynMemoProc = procedure(ParentHandle: HWND); stdcall;

var
  DLLHandle: THandle;
  CreateMemo: TCreateMemoProc;
  CreateSynMemo: TCreateSynMemoProc;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DLLHandle := LoadLibrary('MyCompDLL.dll');
  if DLLHandle <> 0 then
  begin
    @CreateMemo := GetProcAddress(DLLHandle, 'CreateMemo');
    @CreateSynMemo := GetProcAddress(DLLHandle, 'CreateSynMemo');
  end;
end;

procedure TForm1.btnCreateMemoClick(Sender: TObject);
begin
  if Assigned(CreateMemo) then
    CreateMemo(pnlContainer.Handle); // 传递父容器句柄
end;

procedure TForm1.btnCreateSynMemoClick(Sender: TObject);
begin
  if Assigned(CreateSynMemo) then
    CreateSynMemo(pnlContainer.Handle);
end;

DLL代码

library MyCompDLL;

uses
  SysUtils, Classes, Controls, StdCtrls, SynEdit, SynHighlighterPas;

// 创建普通TMemo
procedure CreateMemo(ParentHandle: HWND); stdcall;
var
  ParentCtrl: TWinControl;
  Memo: TMemo;
begin
  ParentCtrl := FindControl(ParentHandle) as TWinControl;
  if not Assigned(ParentCtrl) then Exit;

  Memo := TMemo.Create(ParentCtrl);
  Memo.Parent := ParentCtrl;
  Memo.Align := alClient;
  Memo.Lines.Add('DLL创建的Memo内容');
  // 手动设置Font属性（避免跨模块对象赋值）
  Memo.Font.Name := 'Segoe UI';
  Memo.Font.Size := 10;
  Memo.Font.Color := clNavy;
end;

// 创建带TSynPasSyn的SynMemo
procedure CreateSynMemo(ParentHandle: HWND); stdcall;
var
  ParentCtrl: TWinControl;
  SynMemo: TSynMemo;
  SynPasSyn: TSynPasSyn;
begin
  ParentCtrl := FindControl(ParentHandle) as TWinControl;
  if not Assigned(ParentCtrl) then Exit;

  // 在DLL内部完整创建组件链，避免跨模块传递
  SynMemo := TSynMemo.Create(ParentCtrl);
  SynMemo.Parent := ParentCtrl;
  SynMemo.Align := alClient;

  SynPasSyn := TSynPasSyn.Create(SynMemo);
  SynMemo.SyntaxHighlighter := SynPasSyn; // 同模块内赋值，无兼容性问题

  SynMemo.Lines.Add('procedure TestDLL;');
  SynMemo.Lines.Add('begin');
  SynMemo.Lines.Add('  ShowMessage(''SynEdit语法高亮测试'');');
  SynMemo.Lines.Add('end;');
end;

exports
  CreateMemo, CreateSynMemo;

begin
end.

关键注意事项 #

• 主程序和DLL必须用相同版本的Delphi编译，第三方组件（如SynEdit）版本完全一致
• 绝对不要跨模块传递组件对象引用或VCL实例，所有交互通过句柄、基本类型数据完成
• 如果需要跨模块同步组件属性，应传递属性的具体值（如Font.Name、Font.Size），而非对象本身

内容的提问来源于stack exchange，提问作者FoxWMulder