RichEdit的EM_AUTOURLDETECT消息可识别链接，但我无法单击它

问题描述

| 我在对话框中有一个RichEdit控件。 RichEdit控件显示RTF文本。 “ 0”使RichEdit控件正确格式化并识别超链接。当鼠标悬停在链接上时，指针变为手形，但单击链接后浏览器将不会启动。 我是否缺少某种事件处理程序代码？

case WM_INITDIALOG:
{
    // Create Richedit
    HWND hwndRE = CreateWindowA(\"RichEdit20A\",\"\",WS_CHILD | WS_BORDER | WS_VSCROLL | ES_READONLY | ES_MULTILINE,10,480,220,hDlgWnd,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;
}

    

解决方法

        您可以尝试如下操作：

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,SW_SHOWNORMAL);
            }
            break;

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

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

EN_LINK

： http://msdn.microsoft.com/zh-CN/library/bb787970(VS.85).aspx