加入以下代码模态窗体点击窗体关闭按钮无法关闭窗体！

[Mr Dang]

procedure TForm2.btn1Click(Sender: TObject);
var
    Msg:TMsg;
begin
    while GetMessage(Msg,0,0,0) do
    begin
        if Msg.message=WM_USER+1000 then
        begin
            if Msg.lParam=0 then
            begin
                ModalResult:=mrOk;
            end else
            begin
                ModalResult:=mrCancel;
            end;
            Exit;
        end else
        begin
            TranslateMessage(Msg);
            DispatchMessage(Msg);
        end;
    end;
end;

Form2是模态窗体，如果点击了按钮btn1，然后再点击窗体的关闭按钮，无法关闭窗体。
而如果是正常创建的非模态窗体，加入以上代码，并点击btn1按钮后，点击关闭窗体的关闭按钮，可以正常关闭窗体。

百思不得其解，求解？

[Mr Dang]

自己顶，模态窗体关闭难道不Postmessage WM_QUIT 这条消息？导致while GetMessage(Msg,0,0,0) do 这里没办法退出循环。

[Mr Dang]

自己解决，检测鼠标按键点击窗体右上角的关闭发送的消息， 模拟发条WM_QUIT消息 退出While 接分了 。

procedure WmSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;


procedure TForm2.WmSysCommand(var Msg:TMessage);
begin
    inherited;
    if Msg.WParam = SC_CLOSE then
    begin
        PostMessage(Self.Handle,WM_QUIT,0,0);
    end;
end;

[Mr Dang]

不知道还有其他好方法没？