tform 的close过程如何重载？

Question

var 
a:tform;
begin
a:=tform.create(self);
a.parent:=nil;
a.caption:='窗口';
a.close:=重载过的close名字;   //就是说将a的close 重新指定
......                 
end;
请问如何重新写 tform的 close  ？并且如何将新的close 指定给 窗口a 
谢谢！

Answer 1

TForm的Close方法，是直接继承自TCustomForm的Close方法。而Close方法，不是虚拟的，所以不能重载(override)，只能覆盖(overload)。Close是方法，不是声明为过程类型的属性，所以不能使用“a.close:=重载过的close名字;”的形式，只能从TForm继承一个子类，覆盖Close方法。