C++ Builder 打造可拖曳調整大小的 Edit 控制項：WS_SIZEBOX 與 WM_NCLBUTTONDOWN

標準 TEdit 僅支援文字編輯，無法像視窗那樣拖曳移動或拖曳邊框調整大小。透過修改視窗風格加入 WS_SIZEBOX 並攔截滑鼠訊息模擬標題列拖曳，即可賦予 Edit 視窗級的互動能力。

核心程式碼

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {
    // 1. 加入 WS_SIZEBOX 風格，啟用邊框調整大小
    DWORD dwStyle = ::GetWindowLong(Edit1->Handle, GWL_STYLE);
    ::SetWindowLong(Edit1->Handle, GWL_STYLE, dwStyle | WS_SIZEBOX);

    // 2. 修正視窗實際尺寸，確保邊框可被滑鼠命中
    ::MoveWindow(Edit1->Handle, Edit1->Left, Edit1->Top,
        Edit1->Width, Edit1->Height + 1, TRUE);
}

// 3. 滑鼠按下：若游標為箭頭，模擬標題列拖曳移動整個 Edit
void __fastcall TForm1::Edit1MouseDown(TObject *Sender, TMouseButton Button,
    TShiftState Shift, int X, int Y) {
    if (Edit1->Cursor == crArrow) {
        ::ReleaseCapture(); // 釋放原有捕獲
        // 發送 WM_NCLBUTTONDOWN + HTCAPTION，系統視為點擊標題列
        ::SendMessage(Edit1->Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
    }
}

// 4. 滑鼠移動：保持箭頭游標，暗示可拖曳
void __fastcall TForm1::Edit1MouseMove(TObject *Sender, TShiftState Shift,
    int X, int Y) {
    Edit1->Cursor = crArrow;
}

關鍵機制解析

行為表現

• 拖曳移動：滑鼠在 Edit 客戶區按下左鍵 (游標為箭頭時)，整個 Edit 隨滑鼠移動。
• 調整大小：滑鼠移至 Edit 邊框，游標變為雙向箭頭，拖曳調整寬高。
• 編輯文字：點擊 Edit 內部獲得焦點時，游標自動變為 I-beam (由 VCL 內部處理)，可正常編輯文字。需在 MouseDown 中判斷游標狀態決定是移動還是編輯。

進階擴充

1. 限制移動範圍：在 Edit1MouseMove 或自訂 WM_WINDOWPOSCHANGING 處理中限制 Left/Top 範圍。
2. 最小/最大尺寸：攔截 WM_GETMINMAXINFO 設定 ptMinTrackSize/ptMaxTrackSize。
3. 磁性吸附：移動接近表單邊緣或其他控制項時自動對齊。
4. 封裝為元件：繼承 TCustomEdit，在建構函式套用上述風格與事件，發布為 TDraggableSizableEdit。

適用場景

• 可自由配置的儀表板介面 (如報表設計器、監控面板)。
• 使用者自訂佈局的表單設計器。
• 模擬視窗行為的內嵌編輯區塊。

僅需幾行 API 呼叫，即可將普通 TEdit 昇級為具備視窗級拖曳移動與縮放能力的互動控制項，極大豐富介面靈活性。