查了点资料，还是很迷糊，没动手去尝试下，在这里发个贴希望大家能指点下加深印象。因为写得软件得每个功能模块基本都一样，所以我全是采用代码重用方式，现在就是对动态创建的窗体得事件不知道该怎么处理，举一翻三，知道窗体也就知道其它控件得实现，还望大家指点下，我个人是这样想得：
窗体动态创建好了，从窗体类继承创建，那对应的属性以及事件也就是存在了，比如onclick,close等事件。那该怎么去实现这些事件的功能呢？我举个例子，大家看下我这样想是否正确。
我已经动态创建好窗体MyFrm，非模式，我要实现窗体关闭的时候释放窗体，大家看下我这个方法对不对，新建立一个过程，比如procedure ABC(Frm: tFrom);procedure ABC(Frm: tFrom);
begin
freeandnil(Frm);
end;对应在需要调用的地方以这样的方式调用
MyFrm.close := ABC(MyFrm) 请问下大家我的这想法是对的吗？大家指点下，或者有更好更有效的方法吗》？请指点下。
窗体动态创建好了，从窗体类继承创建，那对应的属性以及事件也就是存在了，比如onclick,close等事件。那该怎么去实现这些事件的功能呢？我举个例子，大家看下我这样想是否正确。
我已经动态创建好窗体MyFrm，非模式，我要实现窗体关闭的时候释放窗体，大家看下我这个方法对不对，新建立一个过程，比如procedure ABC(Frm: tFrom);procedure ABC(Frm: tFrom);
begin
freeandnil(Frm);
end;对应在需要调用的地方以这样的方式调用
MyFrm.close := ABC(MyFrm) 请问下大家我的这想法是对的吗？大家指点下，或者有更好更有效的方法吗》？请指点下。
procedure (Sender: TObject; var Action: TCloseAction);
procedure (Sender: TObject; var Action: TCloseAction);