C
CathyEagle
Unregistered / Unconfirmed
GUEST, unregistred user!
To Adnil:<br>确实如此,这是delphi考虑不周的地方,不过好在是需要重载CreateParams,还不算太麻烦。<br><br>To bluerain:<br>我在很多程序中都用过,没有问题。<br><br>另外,我的文章中下面的代码要稍加修改:<br>————————————————————————————————<br>6、在Form2的OnClose事件中写如下语句:<br> procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);<br> begin<br> Application.Terminate//改为Form1.Close;<br> end; <br>在Form1的OnClose中写Form2.free,这样可以保证资源被释放。<br>————————————————————————————————————