为何这样不行

Question

建一Unit,没有Form
....
interfaceprocedure myagentcommand(ASender: TObject;const UserInput: IDispatch);
procedure createmyagent;var myagent:tagent;
...
implementationprocedure createmyagent;
begin
  myagent:=tagent.create(application);
  myagent.oncommand:=myagentcommand;
  ...
end;procedure myagentcommand(ASender: TObject;const UserInput: IDispatch);
begin
  ....
end;...上面何处错误,请指正,谢谢

Answer 1

在 Uses中有没有加入
 System, Forms;

Answer 2

原理就在这一句:
myagent.oncommand:=myagentcommand;
myagentcommand是普通函数,而不是类方法,这两者是不同的.
oncommand要求的是指向格式对应的类方法.所以你应该把myagentcomman放在一个类当中.

Answer 3

我已经说了呀，你应该把myagentcomman放在一个类当中