我是在WinXP和BCB 5.0實作 SendMessage(RichEdit->Handle, EM_AUTOURLDETECT, true, NULL); 之後, 你只要打http://www.kimo.com.tw之類的, 它會自動在畫底線 Source Code: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20164

引言: 我是在WinXP和BCB 5.0實作 SendMessage(RichEdit->Handle, EM_AUTOURLDETECT, true, NULL); 之後, 你只要打http://www.kimo.com.tw之類的, 它會自動在畫底線 Source Code: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20164

那click 後取得網址字串是在RichEditMouseDown event 內自行實作 還是有其他的方式 ?

啊, 我就知道你會這樣問.... 大家努力的給它try try try 啦 try出來再分享一下囉 ^^"

引言: 啊, 我就知道你會這樣問.... 大家努力的給它try try try 啦 try出來再分享一下囉 ^^"

終於...我自己試出來了,查了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); } //------------------------------------------------------------ 如有錯誤或寫法不當之處請指教... 發表人 - yotrong 於 2002/08/07 23:23:20

原來WM_NOTIFY可以這樣搭配用....^^ 可見你英文能力不錯唷.....好棒 如果多逛逛原文網站, 想必能可以造福更多的人唷 可以順便造福我嗎? ^^ 我玩了RichEdith很久 還有幾個東東Try不出來

引言: 終於...我自己試出來了,查了MSDN 原來要建立MESSAGE_MAP 來攔截RichEdit 送出的EN_LINK notification 透過 WM_NOTIFY 的msg 就可取得字串 [...恕刪] 發表人 - yotrong 於 2002/08/07 23:23:20

我發現若RichEdit的Parent若不是Form1 點選hyperlink就不會showmessage了,請問該怎麼解決? 發表人 - dwhuang 於 2002/08/28 22:49:35

引言:

引言: 終於...我自己試出來了,查了MSDN 原來要建立MESSAGE_MAP 來攔截RichEdit 送出的EN_LINK notification 透過 WM_NOTIFY 的msg 就可取得字串 [...恕刪] 發表人 - yotrong 於 2002/08/07 23:23:20

我發現若RichEdit的Parent若不是Form1 點選hyperlink就不會showmessage了,請問該怎麼解決? 發表人 - dwhuang 於 2002/08/28 22:49:35

不好意思, 我也很想知道, try 了許久但就是沒有辦法, 請問有人解決了嗎 ? Y.S.C.
現任:Programmer 深度論壇 BCB Internet 版主
http://www.goalsoft.com.tw 網宇科技有限公司
http://www.chatking.com.tw 台灣-聊天王 語音聊天社群 創辦人