程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> C語言 >> VC >> vc教程 >> 在RichEdit中實現超鏈接

在RichEdit中實現超鏈接

編輯:vc教程

首先在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::[email protected] \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);
}

以上代碼均已測試通過。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved