Delphi非阻塞ShowModal

发布时间：2020-12-15 09:36:41 所属栏目：大数据来源：网络整理

导读：我想知道是否有一种方法来显示TForm而不等待它(有点像TForm.Show).但我想要的是阻止所有其他形式(就像在ShowModal中一样) 例：我有Form1和Form2. Form1有一个按钮,应打开Form2但Form1被阻止,但单击该按钮仍然继续Form2打开后的代码. procedure TForm1.Butto

我想知道是否有一种方法来显示TForm而不等待它(有点像TForm.Show).但我想要的是阻止所有其他形式(就像在ShowModal中一样)

例：

我有Form1和Form2.
Form1有一个按钮,应打开Form2但Form1被阻止,但单击该按钮仍然继续Form2打开后的代码.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal; // ===> Something like that but the Code should continue,yet Form1 and all other forms are blocked (disabled)
  MessageBox (0,'Code continues','',0);
end;

希望你知道我的意思.

解决方法

你可以调用DisableTaskwindows,除了你的窗口禁用,以及稍后的EnableTaskWindows再次启用其他窗体.

Form3.Show;
  FP:=DisableTaskwindows(Form3.Handle);
  //Some Code
  EnableTaskwindows(FP);

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!