2个showmodal窗体,如何在其中一个窗体上打开另外一个窗体之前关闭此窗体。(100)

  • 主题发起人 主题发起人 maill01
  • 开始时间 开始时间
M

maill01

Unregistered / Unconfirmed
GUEST, unregistred user!
2个showmodal窗体,如何在其中一个窗体上打开另外一个窗体之前关闭此窗体。
 
最简单的通过sendmessage(hwnd,wm_close,0,0)来实现
 
form1.hide;form2.show;
 
To:terr_zhou82,你的代码没测试过吧?procedure TForm2.Button1Click(Sender: TObject);begin Self.Hide; //这2行代码少一个都达不到你的期望效果 Self.Close;//这2行代码少一个都达不到你的期望效果 if Form3=nil then Application.CreateForm(TForm3, Form3); Form3.ShowModal; Form3.free; From3:=nil;end;
 
接上面的。是不是也可以在FormDeactivate加上FreeAndNil(form3)
 
后退
顶部