窗体停靠后怎么释放?急!!!!!!!!!(20分)

  • 主题发起人 主题发起人 zhch1100
  • 开始时间 开始时间
Z

zhch1100

Unregistered / Unconfirmed
GUEST, unregistred user!
有3个窗体,mainform,form1,form2,程序运行以后,
首先在mainform1的button1单击,form1.show,显示正常;
form2也可以调用form1,使用的是窗体停靠技术,
form2上有一个panel1,form1.manuadock(panel1),form1.show,
显示也正常。如果运行了form2以后,再在mainform1的button1单击,
form1不再显示。我觉得是form2调用form1进行停靠后,
退出时没有释放。请问各位大侠指点一下。
 
在form2关闭时释放Form1。
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Close;
Form1.ManualDock(nil);
end;
 
谢谢,问题已经解决。
 
后退
顶部