delphi - 无法将函数引用从框架传递到表单

Question

我正在构建一个应用程序，它有一个带有多个创建的 TabSheet 的 PageControl，我将其放置在几个预定义的框架上。每个框架中有一个名为“GetValue”的例程，它将其控件的内容解析为字符串并返回结果。在主窗体(RGMain)上我有:

Type
   TGetValueFunction = Function: String;
...   
Private
   fGetValueFunction: TGetValueFunction;
...      
Public
   Property GetValueFunction: TGetValueFunction Write fGetValueFunction;

在我的每个框架中:

Public
Constructor Create(AQwner: TComponent);
...
Interface
Constructor TBooleanChoiceFrame.Create(AOwner: TComponent);
   Begin
   Inherited Create(AOwner);
   RGMain.GetValueFunction := GetValue; <<<< compile error on this line
   End;

E2009 不兼容的类型:“常规过程和方法指针”

除了纠正问题之外，这是否是解决在每个帧中访问 GetValue 例程的问题的正确方法？

Answer 1

如果你想使用类的方法，你必须像这样声明函数类型:

Type
   TGetValueFunction = Function: String of object;