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

答案:2 悬赏:0 手机版

解决时间 2021-03-16 00:39

提问者网友：感性作祟
2021-03-15 01:15

最佳答案

五星知识达人网友：走死在岁月里
2021-03-15 01:45

若何应用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;

全部回答

1楼网友：你哪知我潦倒为你
2021-03-15 03:03

如何在一个窗体showmodal后,让法度榜样持续履行下面的代码?

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！