C++Builder最小化关闭模态子窗体后主窗体无法交互问题求助

问题描述 #

在C++Builder 11.3环境中，当通过ShowModal()打开PopupMode设为pmAuto且PopupParent为空的模态子窗体时，若调用Application->Minimize()后通过设置ModalResult关闭该子窗体，恢复主窗体后会发现其无法响应鼠标与键盘事件。检查主窗体的Enabled属性以及调用::IsWindowEnabled()均显示主窗体处于启用状态，但实际无法交互。

复现代码 #

Unit1.h #

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.AppEvnts.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    TApplicationEvents *ApplicationEvents1;
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall ApplicationEvents1Minimize(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Unit1.cpp #

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Form2=new TForm2(this);
    Form2->ShowModal();
    delete Form2;
    Form2=NULL;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Minimize(TObject *Sender)
{
    // close form
    if (Form2) {
        Form2->ModalResult=mrOk;
    }
}
//---------------------------------------------------------------------------

Unit1.dfm #

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 442
  ClientWidth = 628
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  TextHeight = 15
  object Button1: TButton
    Left = 296
    Top = 272
    Width = 75
    Height = 25
    Caption = 'Open SubForm'
    TabOrder = 0
    OnClick = Button1Click
  end
  object ApplicationEvents1: TApplicationEvents
    OnMinimize = ApplicationEvents1Minimize
    Left = 192
    Top = 192
  end
end

Unit2.h #

//---------------------------------------------------------------------------

#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm2 : public TForm
{
__published:    // IDE-managed Components
    TLabel *Label1;
    TButton *Button1;
private:    // User declarations
    virtual void __fastcall WndProc(TMessage &Message);

public:     // User declarations
    __fastcall TForm2(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm2 *Form2;
//---------------------------------------------------------------------------
#endif

Unit2.cpp #

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm2::WndProc(TMessage &Message)
{
    if (Message.Msg==WM_SYSCOMMAND) {
        if (Message.WParam==SC_MINIMIZE) {
            Application->Minimize();
        }
    }
    __super::WndProc(Message);
}

Unit2.dfm #

object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'Form2'
  ClientHeight = 442
  ClientWidth = 628
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  PopupMode = pmAuto
  TextHeight = 15
  object Label1: TLabel
    Left = 272
    Top = 216
    Width = 69
    Height = 15
    Caption = 'Minimize Me'
  end
  object Button1: TButton
    Left = 272
    Top = 320
    Width = 75
    Height = 25
    Caption = 'Close'
    Default = True
    ModalResult = 1
    TabOrder = 0
  end
end

解决方法 #

这个问题源于C++Builder在pmAuto模态窗体的最小化与关闭时序处理上的缺陷，未正确恢复主窗体的消息循环焦点状态。以下是三种可行的解决方式：

方法一：延迟关闭子窗体 #

修改ApplicationEvents1Minimize事件，使用TTimer延迟设置ModalResult，确保应用完成最小化流程后再处理关闭操作：

void __fastcall TForm1::ApplicationEvents1Minimize(TObject *Sender)
{
    if (Form2) {
        TTimer *timer = new TTimer(this);
        timer->Interval = 100;
        timer->OnTimer = [](TObject *Sender) {
            if (Form2) {
                Form2->ModalResult = mrOk;
            }
            static_cast<TTimer*>(Sender)->Free();
        };
        timer->Enabled = true;
    }
}

方法二：手动恢复主窗体激活状态 #

在子窗体关闭后，主动激活主窗体并设置焦点，强制系统将消息循环指向主窗体：

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Form2=new TForm2(this);
    Form2->ShowModal();
    delete Form2;
    Form2=NULL;
    // 手动激活主窗体
    this->SetFocus();
    ::SetForegroundWindow(this->Handle);
    ::SetActiveWindow(this->Handle);
}

方法三：避免最小化整个应用 #

修改子窗体的WndProc，直接最小化主窗体而非调用Application->Minimize()，避免触发应用级的最小化时序问题：

void __fastcall TForm2::WndProc(TMessage &Message)
{
    if (Message.Msg==WM_SYSCOMMAND) {
        if (Message.WParam==SC_MINIMIZE) {
            // 最小化主窗体而非整个应用
            static_cast<TForm*>(Owner)->WindowState = wsMinimized;
            Message.Result = 0; // 阻止默认最小化行为
            return;
        }
    }
    __super::WndProc(Message);
}

内容的提问来源于stack exchange，提问作者user3161924