VC6.0 MFC 對話框去標題欄邊框後無法移動的解決方案

問題現象

將對話框屬性設置為 Style: Popup、Border: None 後，對話框失去標題欄和邊框，導致無法通過鼠標拖動移動。

原因分析

• Windows 系統默認只有標題欄（Caption）區域響應 WM_NCHITTEST 返回 HTCAPTION，允許拖動
• Border: None 移除了非客戶區，Style: Popup 移除了標題欄
• 客戶區默認返回 HTCLIENT，不觸發移動邏輯

解決方案：攔截 WM_NCHITTEST 消息

步驟 1：類向導添加消息處理

1. 打開類向導
2. 選擇對話框類
3. Messages 列表找到 WM_NCHITTEST
4. 添加處理函數 OnNcHitTest

步驟 2：實現拖動邏輯

LRESULT CMyDialog::OnNcHitTest(CPoint point) {
    // 將屏幕坐標轉為客戶區坐標
    ScreenToClient(&point);
    
    // 獲取客戶區矩形
    CRect rect;
    GetClientRect(&rect);
    
    // 定義可拖動區域（如頂部 30 像素）
    CRect dragRect(0, 0, rect.Width(), 30);
    
    // 點擊在可拖動區域內，返回 HTCAPTION
    if (dragRect.PtInRect(point)) {
        return HTCAPTION;
    }
    
    return CDialog::OnNcHitTest(point);
}

進階：全客戶區可拖動（排除控件區域）

LRESULT CMyDialog::OnNcHitTest(CPoint point) {
    ScreenToClient(&point);
    
    // 遍歷所有子控件，排除控件佔用區域
    CWnd* pChild = GetWindow(GW_CHILD);
    while (pChild) {
        CRect childRect;
        pChild->GetWindowRect(&childRect);
        ScreenToClient(&childRect);
        
        if (childRect.PtInRect(point)) {
            return HTCLIENT;  // 在控件上，不拖動
        }
        pChild = pChild->GetNextWindow(GW_HWNDNEXT);
    }
    
    return HTCAPTION;  // 其他空白區域可拖動
}

替代方案

• 保留細邊框 Border: Thin，系統自動處理邊緣拖動
• 使用 WS_EX_DLGMODALFRAME 樣式配合自定義標題欄
• 參考：相關博客

注意事項

1. VC6.0 較老，建議遷移至 VS2019+ 獲得更好高 DPI 支持
2. 模態對話框 DoModal() 調用時需注意父窗口狀態
3. 多顯示器環境下坐標轉換需測試