从类引用创建的表单中执行方法 (Delphi)

我有一个表单（form2）并且我实现了以下 PUBLIC 方法：

function ShowInterface(i:integer):boolean;

该表单位于将被动态加载的包中。现在我想实例化这个表单（form2）并执行上面的方法。

重要提示：我无法在 form1 中引用 form2 的单位。

我尝试了这段代码，但它从未找到“显示接口”指针（返回零）。

procedure TfrmForm1.Button1Click(Sender: TObject);
var
  PackageModule: HModule;
  AClass: TPersistentClass;
  ShowInterface: function (i:integer):boolean;
  frm: TCustomForm;
begin
  PackageModule := LoadPackage('form2.bpl');
  if PackageModule <> 0 then
  begin
    AClass := GetClass('TfrmForm2');
    if AClass <> nil then // <<-- FINE!! IT FINDS OUT 'TfrmForm2' in 'form2.bpl')
    begin
      frm := TComponentClass(AClass).Create(Self) as TCustomForm;
      ShowInterface := frm.MethodAddress('ShowInterface'); // <<-- HERE!! ALLWAYS RETURNS "NIL"
      if @ShowInterface <> nil then
        ShowInterface(1);
      // but if I call frm.Show, it works fine. frm is "loaded"!!!

      frm.Free;
    end;
    DoUnloadPackage(PackageModule);
  end;
end;

提前致谢。

方法地址仅适用于发表方法。将其移至发表部分，它应该可以工作。

或者，如果您有 Delphi 2010，则扩展 RTTI 提供了一种查找public按名称的方法。 （或者其他可见性级别，如果您将其更改为默认值。）