在RichEdit中实现超链接

核心提示：首先在Form上放置一个RichEdit，在窗体的构造函数中添加以下代码：__fastcall TMainForm::TMainForm(TComponent* Owner): TForm(Owner){unsigned mask = SendMessage(RichEdit1->Handle, EM_GETEV

　　首先在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);
}