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

[举手无悔大丈夫]

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以后，底下的窗体就不响应消息了!

[sololie]

不能不接受消息，只能说接收到消息但不做处理或区别对待处理。 这里得考虑你让窗体死掉之后，想通过什么形式重新让窗体活过来

[举手无悔大丈夫]

顶上去。。。