如何响应动态创建控件的事件

Question

在窗体上动态创建了一个Timage图形控件，怎么在它的onmousermove事件中写代码呢！！
请高手请教，谢谢！！！

Answer 1

在它的create事件中写，image.onmousemove=ddd(dd);
ddd(dd)是自定义的全局过程

Answer 2

你定义一个和onmousemove的参数一样的函数xxx，在创建image的时候，令image.onmousemove:=xxxxxx里面就是你的动套创建的image的onmousemove的代码，你可以随便写！

Answer 3

xxx必须是类的成员函数，是form也好，是什么类的都美关系，只要参数烈表和imageonmousemove的一样，也就是：
procedure TMyClass.xxx(sender:tobject;x,y:integer);

Answer 4

    你自己写一个过程，然后将该过程赋值给image.onmousemove 事件！！！