Question

怎样在一个窗体showmodal后,让程序继续执行下面的代码?

若以下回答无法解决问题，邀请你更新回答

Answer 1

若何应用Show办法来显示一个模态窗口 我们知道在Delphi中显示一个窗口有两种方法,模态方法显示（ShowModal）和非模态方法显示（Show），模态方法显示窗口时,必须在自身封闭后才能使父窗口起感化，但有时我们想要实现一个窗口,既要具有模态窗口的特点，但又要能大大父窗口中控制它，如显示一个表示处理进行过程的进度框。应用DisableTaskWindows和 EnableTaskWindows 可以达到这一效不雅。 下面是演示实现法度榜样： procedure TForm1.ShowProgressDlg; {轮回停止} var WindowList: Pointer; begin end; {除了Form2外使所有窗口无效} WindowList := DisableTaskWindows(Form2.Handle); try Form2.Show; {轮回履行义务} Form2.ProgressBar1.Position := Form2.ProgressBar1.Position + 1; finally {从新使所有窗口有效} EnableTaskWindows(WindowList); Form2.Close; end; 查看原帖>>