当我有一个表单做这个功能时,我有这个工作.我现在有多种形式需要这样做.我将所有的代码移动到一个共同的单元.
Example. Form A has PopupMenu 1. When clicked,call code in Unit CommonUnit. Form B has PopupMenu 2. When clicked,call code in unit CommonUnit.
当我需要从每个表单调用我的弹出窗口时,我调用我的顶级过程(在CommonUnit单元中),将顶层菜单项的名称从每个表单传递到公共单元中的顶级过程.
M1 := TMenuItem.Create(TopMenuItem);
M1.Caption := FieldByName('NAME').AsString;
M1.Tag := FieldByName('ID').AsInteger;
M1.OnClick := BrowseCategories1Click;
TopMenuItem.Add(M1);
当我编译时,我收到一条错误消息.具体来说,OnClick行正在抱怨
不兼容的类型：’方法指针和常规过程’.
当我在单个表单上执行此操作时,我已经定义了BrowseCategories1Click.唯一的区别是它现在被定义在一个共同的单位,而不是一个表单的一部分.
它被定义为
procedure BrowseCategories1Click(Sender: TObject); begin // end;
谢谢
GS
解决方法
德尔福有3种程序类型：
>独立或单位范围的函数/过程指针如下声明：
var Func：function(arg1：string)：string;
var Proc：procedure(arg1：string);
>方法指针如下声明：
var Func：function(arg1：string)：对象的字符串;
对象的var Proc：procedure(arg1：string);
>而且,由于Delphi 2009,匿名(见下文)功能/方法指针如下声明：
var Func：引用函数(arg1：string)：string;
var Proc：引用过程(arg1：string);
独立指针和方法指针是不可互换的.这样做的原因是可以在方法中访问的隐式Self参数. Delphi的事件模型依赖于方法指针,这就是为什么你不能为一个对象的事件属性分配一个独立的函数.
所以你的事件处理程序必须被定义为一些类定义的一部分,任何类定义来安抚编译器.
由于TOndrej建议您可以在编译器周围进行攻击,但是如果这些事件处理程序处于同一个单元中,那么它们应该已经被关联了,所以你可以继续将它们包装到一个类中.
还有一个我还没有看到的建议是回溯一点.让每个表单实现自己的事件处理程序,但是将该处理程序委托给在新单元中声明的函数的责任.
TForm1.BrowseCategoriesClick(Sender:TObject) begin BrowseCategories; end; TForm2.BrowseCategoriesClick(Sender:TObject) begin BrowseCategories; end;
unit CommonUnit interface procedure BrowseCategories; begin // end;
这有额外的好处是将用户操作的响应与触发操作的控件分开.您可以轻松地将工具栏按钮和弹出菜单项的事件处理程序委托给相同的功能.
您选择的方向最终取决于您,但我会提醒您,专注于哪一个选项将使得可维护性在将来更容易,而不是目前最为方便.
匿名方法
匿名方法是一个不同的野兽.匿名方法指针可以指向一个独立的函数,一个方法或一个未命名的函数声明为内联.最后一个函数类型是从中获取匿名的名称.匿名函数/方法具有捕获在范围之外声明的变量的独特能力
function DoFunc(Func:TFunc<string>):string
begin
Result := Func('Foo');
end;
// elsewhere
procedure CallDoFunc;
var
MyString: string;
begin
MyString := 'Bar';
DoFunc(function(Arg1:string):string
begin
Result := Arg1 + MyString;
end);
end;
这使得它们是程序指针类型中最灵活的,但是它们也具有潜在的更多开销.变量捕获与内联声明一样消耗额外的资源.编译器使用隐藏的引用计数接口进行内联声明,这会增加一些较小的开销.