1

我在对话框中有一个 RichEdit 控件。RichEdit 控件显示RTF文本。EM_AUTOURLDETECT使 RichEdit 控件正确格式化并识别超链接。当鼠标悬停在链接上时，指针变为手形，但单击链接后浏览器不会启动。

我是否缺少某种事件处理程序代码？

case WM_INITDIALOG:
{
    // Create Richedit
    HWND hwndRE = CreateWindowA("RichEdit20A", "", WS_CHILD | WS_BORDER | WS_VSCROLL | ES_READONLY | ES_MULTILINE, 10, 10, 480, 220, hDlgWnd, 0, hInst, 0);

    SendMessage(hwndRE ,EM_AUTOURLDETECT,(WPARAM)TRUE,(LPARAM)0);
    //SendMessage(hwndRE ,EM_SETEVENTMASK, 1, ENM_LINK | ENM_CHANGE);

    ShowWindow(hwndRE, SW_SHOWNORMAL);
    SETTEXTEX SetTextEx;
    char* aboutdata = "{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset0 Verdana;}}\\viewkind4\\uc1\\pard\\qc\\b\\f0\\fs20 www.whateverdomain.com} ");
    SendMessage(hwndRE, EM_SETTEXTEX,(WPARAM)&SetTextEx, (LPARAM)(LPCTSTR)aboutdata);
    return TRUE;
}
4

2 回答 2

3

你可以尝试这样的事情：

case WM_NOTIFY:
    switch (((LPNMHDR)lParam)->code)
    {
        case EN_LINK:
            ENLINK * enLinkInfo = (ENLINK *)lParam;

            if (enLinkInfo->msg == WM_LBUTTONUP)
            {
                // code which gets clicked URL using enLinkInfo->chrg and saves it in
                // "urlString"

                ShellExecute(NULL, "open", urlString, NULL, NULL, SW_SHOWNORMAL);
            }
            break;

        .... // More cases on WM_NOTIFY switch.
    }
    break;

基本上，当 WM_NOTIFY 代码为 EN_LINK 时，您将获得点击的 URL 并使用 ShellExecute 启动它。

于 2011-06-01T08:12:35.737 回答
0

看看EN_LINK：

http://msdn.microsoft.com/en-us/library/bb787970(VS.85).aspx

于 2011-06-01T05:58:43.173 回答