各位好 我在這邊的討論區找到了一段程式碼如下： 他的目的是讓RichEdit可以自動偵測是否為http的文字.. 我試了，他是可以偵測沒錯，但是HyperLink(TMessage &Msg)這個函式卻似乎沒有任何作用.. 而且我在RichEdit的OnSelectionChange做的事也沒反應了.. 有人知道問題是在哪裡嗎? 終於...我自己試出來了,查了MSDN 原來要建立MESSAGE_MAP 來攔截RichEdit 送出的EN_LINK notification 透過 WM_NOTIFY 的msg 就可取得字串 //unit.h public: void __fastcall HyperLink(TMessage &Msg); BEGIN_MESSAGE_MAP VCL_MESSAGE_HANDLER(WM_NOTIFY, TMessage, HyperLink) END_MESSAGE_MAP(TForm) //unit.c __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { SendMessage(RichEdit1->Handle, EM_AUTOURLDETECT, true, NULL); } void __fastcall TForm1::HyperLink(TMessage &Msg) { ENLINK *PENLINK; PENLINK=(ENLINK *)Msg.LParam; if (PENLINK->msg == WM_LBUTTONDOWN && PENLINK->nmhdr.code==EN_LINK) { CHARRANGE RG; RG=PENLINK->chrg; int LStart,LEnd; LStart=RG.cpMin; LEnd=RG.cpMax; RichEdit1->SelStart=LStart; RichEdit1->SelLength=LEnd-LStart; ShowMessage(RichEdit1->SelText); } TForm::Dispatch(&Msg); } void __fastcall TForm1::FormCreate(TObject *Sender) { SendMessage(RichEdit1->Handle, EM_SETEVENTMASK, 0, ENM_LINK); }