如果设置窗体不可用不能接受消息,鼠标消息跟键盘消息

procedure TForm1.btn1Click(Sender: TObject);
begin
  try
    Form1.Enabled := False;
    Application.ProcessMessages;
    Sleep(5000);
  finally
    Form1.Enabled := True;
  end;
end;procedure TForm1.btn2Click(Sender: TObject);
begin
  ShowMessage('11');
end;
像上面这样写，在点击btn1以后，马上点击btn2, 最后还响应btn2消息，
如果设置才能实现不响应,就像ShowModal以后，底下的窗体就不响应消息了!