动态创建的对象的事件处理应该怎么实现。

Question

比如在一个不可视的对象里面动态生成一个对象 AForm，那么如何修改该窗体的事件响应；

Answer 1

只能事先聲明一個對應的事件方法, 
然後, 創建後, 
Aform.Oncreate := myOnCreate;

Answer 2

比例你想要ＡＦｏｒｍ响应OnMouseDown，你可以在你的那个类里同声明一个函数
procedure AFormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
然后在你的类的某个方法中动态生成AForm之后，这样：AForm.onMouseDown:=AFormMouseDown;
那那个窗口就会响应这样事件了，
有一点要注意的是，你写的事件函数的参数一定要对，如果你不知道某个事件函数的参数是怎么样的，你可以在ＩＤＥ建一个窗口，在属性察看器中点出某个事件，把在代码框中把这个事件的原型照搬到你的类中就行了，。
其他事件与此类似