Delphi Non Blocking ShowModal

Question

TForm.Show와 같은 것을 기다리지 않고 TForm을 표시하는 방법이 있는지 궁금합니다. 하지만 내가하고 싶은 것은

예 (단지 ShowModal처럼) 모든 다른 형태를 차단하는 것입니다 :

I을 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

Windows를 beeing 사용 안 함으로 설정하고 나중에 EnableTaskWindows를 사용하여 다른 양식을 다시 사용하도록 설정하면 DisableTaskwindows를 호출 할 수 있습니다.

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