在RichEdit中实现超链接

最新推荐文章于 2023-02-06 10:49:00 发布

houziwo

最新推荐文章于 2023-02-06 10:49:00 发布

阅读量815

点赞数

分类专栏： VC

VC 专栏收录该内容

37 篇文章 0 订阅

订阅专栏

在RichEdit中实现超链接

首先在Form上放置一个RichEdit。
在窗体的构造函数中添加以下代码：
__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"
                       "网址: http://www.ccrun.com\n"
                       "偶的信箱:\n"
                       "mailto::info@ccrun.com \n"
                       "嘿嘿\n";
}
重载窗体的WndProc
1。在.h中添加：
    protected:
       virtual void __fastcall WndProc(Messages::TMessage &Message);
2。在.cpp中添加：
//---------------------------------------------------------------------------
void __fastcall TMainForm::WndProc(Messages::TMessage &Message)
{
     if (Message.Msg == WM_NOTIFY)
     {
         if (((LPNMHDR)Message.LParam)->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);
}