Delphi 非阻塞 ShowModal

Question

我想知道是否有一种方法可以显示 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;

希望你明白我的意思。

Answer 1

您可以调用DisableTaskwindows，接受禁用您的窗口，然后调用EnableTask Windows 以再次启用其他窗体。

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