我也穷，请了！

[scripting]

procedure Tform1.m1(sender:Tobject)
procedure Tform1.m2(sender:Tobject，x,y:integer)
procedure Tform1.m3(sender:Tobject,....)
procedure Tform1.m4(sender:Tobject,....)

能不能整合

procedure setmethod(o:Tobject;MethodName:string)
begin
实现 o.{MethodName}:=Tform1.{MethodName};
其中：MethodName is (m1,m2,m3,m4)
end

或者如何将m1/m2/m3/m4...事先放入一个Tmethod数组中

[scripting]

有没有人呀，分数不够哪怕我先欠着！

[scripting]

还是穷人自己解决了

[scripting]

不给分了

[wangxd1976]

你这样贴子是无法结束的，这样吧，俺帮你，把分给俺，你结贴子。OK?

[wangxd1976]

俺是不是太无耻啦，还是太仗义啦

[scripting]

你先给，要不烂在这里

[scripit]

tmethod.code