Delphi Non Blocking ShowModal

Question

Мне было интересно, существует ли метод show 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, за исключением того, что ваше окно отключено, а позже EnableTaskWindows, чтобы снова включить другие формы.

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