C++ Builder 在 RichEdit 中實現超連結

啟用自動偵測 URL 並攔截 WM_NOTIFY 處理點擊開啟連結

RichEdit 內建 EM_AUTOURLDETECT 可自動識別網址/郵件連結並顯示底線藍字。需設定事件遮罩 ENM_LINK 並覆寫 WndProc 處理 EN_LINK 通知，於左鍵點擊時呼叫 ShellExecute 開啟連結。

初始化 (建構函數)

__fastcall TMainForm::TMainForm(TComponent* Owner) : TForm(Owner)
{
    unsigned mask = SendMessage(RichEdit1->Handle, EM_GETEVENTMASK, 0, 0);
    SendMessage(RichEdit1->Handle, EM_SETEVENTMASK, 0, mask | ENM_LINK);
    SendMessage(RichEdit1->Handle, EM_AUTOURLDETECT, TRUE, 0); // 自動偵測 URL

    RichEdit1->Text = "歡迎造訪 C++ Builder\n"
        "網址: https://www.ccrun.com\n"
        "偶的信箱:\n"
        "mailto:info@ccrun.com \n"
        "嘿嘿\n";
}

覆寫 WndProc (標頭檔宣告)

protected:
    virtual void __fastcall WndProc(Messages::TMessage &Message);

實作

void __fastcall TMainForm::WndProc(Messages::TMessage &Message)
{
    if (Message.Msg == WM_NOTIFY) {
        LPNMHDR pNMHDR = (LPNMHDR)Message.LParam;
        if (pNMHDR->code == EN_LINK) {
            ENLINK *p = (ENLINK*)Message.LParam;
            if (p->msg == WM_LBUTTONDOWN) {
                // 選取連結文字
                SendMessage(RichEdit1->Handle, EM_EXSETSEL, 0, (LPARAM)&(p->chrg));
                // 開啟連結
                ShellExecute(Handle, "open", RichEdit1->SelText.c_str(), 0, 0, SW_SHOWNORMAL);
            }
        }
    }
    TForm::WndProc(Message);
}

關鍵點

• EM_AUTOURLDETECT 自動識別 http:, mailto:, ftp: 等格式。
• ENM_LINK 讓 RichEdit 發送 EN_LINK 通知。
• ENLINK 結構包含 chrg (字元範圍) 與觸發訊息 msg。
• 點擊時先 EM_EXSETSEL 選取該範圍，再取 SelText 傳給 ShellExecute。