提问：如何在RichEidt中单击URL连接时，并打开浏览器转到相应的网页上？

2002-08-27 10:54:00 214 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

华为MA5626 ONU开局配置实战：从零到业务就绪的完整命令手册本文详细介绍了华为MA5626 ONU设备的开局配置全流程，包括物理连接、命令行初始化、业务VLAN划分、PoE功能配置及故障排查。通过实战命令手册，帮助网络工程师快速完成从设备上电到业务就绪的完整配置，特别适合FTTB场景部署。阅读详情

如何在RichEidt中单击URL连接时，响应此LBUTTONUP事件，并打开浏览器转到相应的网页上，就象在Word中你输入一个URL地址，之后单击它就可以转到相应的页面上。
谢谢各位高手。

...全文

剑指offer编程题66道题目描述及java代码实现汇总 66道编程题，题目描述及java代码具体实现。自己手动整理，值得下载学习。立即下载

这个网站不安全啊

C++ Builder 13,871 成员 102,696 内容

+ 关注 + 加入社区

切换为时间正序

huzhangyou 2002-09-02

打赏
举报

见笑了
ENLINK原来是msdn上的一个struct
呵呵

huzhangyou 2002-09-02

打赏
举报

忘了我是在memo的click事件中实现的

huzhangyou 2002-09-02

打赏
举报

请问楼主ENLINK这个类是你自己写的吗？
我好像也有一个方法
应该是差不多
int Row=SendMessage(Memo1->Handle,EM_LINEFROMCHAR, Memo1->SelStart, 0);
if(Row==15)
{
String TmpStr3=buffer+"\\"+"插件\\ie.exe";
ShellExecute(NULL,"open",TmpStr3.c_str(),NULL,NULL,SW_SHOW);}

不过这是MEMO的
而且我自己制定的行
方法可能不怎么好
(buffer是string类型)

这个网站不安全啊 2002-09-02

打赏
举报

问题我已经解决了！虽然大家没能帮上我的忙，但是我非常的感谢大家。每人我都会给分的。还有下面是我的解决方法。请要解决这个问题的朋友参考一下，一定会有帮助的！
一、首先对RichEdit发送以下消息
::SendMessage( RichEdit->Handle, EM_AUTOURLDETECT, (WPARAM)TRUE, 0 );
::SendMessage( RichEdit->Handle, EM_SETEVENTMASK, 0,
(LPARAM)(::SendMessage(RichEdit->Handle, EM_GETEVENTMASK,0,0) | ENM_LINK));

二、在头文件(*.h)中声明函数:
void __fastcall SubClassWndProc(Messages::TMessage &Msg);

三、然后在构造函数中加 WindowProc = SubClassWndProc;
四、SubClassWndProc的代码：
void __fastcall TmyForm::SubClassWndProc(Messages::TMessage &Msg)

{
Msg.Result = 0;

if (Msg.Msg == WM_NOTIFY)
{
LPNMHDR pnmh = (LPNMHDR)Msg.LParam;
if (pnmh->code == EN_LINK)
{
ENLINK* l_pENLink = ( ENLINK* )pnmh;
switch( l_pENLink->msg)
{
case WM_LBUTTONDOWN:
RichEdit->SelStart = l_pENLink->chrg.cpMin;
RichEdit->SelLength = l_pENLink->chrg.cpMax-l_pENLink->chrg.cpMin;
Cursor = crHourGlass;
::ShellExecute(Handle, "open", RichEdit->SelText.c_str(), NULL, NULL, SW_SHOWNORMAL);
Cursor = crDefault;
break;
}
}
}
WndProc(Msg);
}

这个网站不安全啊 2002-08-27

打赏
举报

不好意思大哥，在我这里接收不到这个消息啊！EM_AUTOURLDETECT

kingcaiyao 2002-08-27

打赏
举报

消息映射在头文件中：
.h File
class TForm1:public TForm
{
private:
void __fastcall MyMessage(TMessage &myMsg);
public:
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(EM_AUTOURLDETECT,TMessage,MyMessage);
END_MESSAGE_MAP(TForm);
};

bluebird97073 2002-08-27

打赏
举报

直接写mousedown就可以了哈
void __fastcall TForm1::RichEdit1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Shift.Contains(ssLeft))
ShellExecute(Handle,"open",RichEdit1->SelText.c_str(),0,0,SW_SHOW);
}

这个网站不安全啊 2002-08-27

打赏
举报

谢谢大家帮我的忙，但是请问 kingcaiyao(AKing) 一下，你的
void TForm1::MyMessage(TMessage &myMsg)
是如何定义的？是接收处理WM_NOTIFY消息吗？请把你的消息映射那部份代码也给我好吗？
在这里谢了先

kingcaiyao 2002-08-27

打赏
举报

这样：
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(SendMessage(
RichEdit1->Handle, // handle to destination window
EM_AUTOURLDETECT, // message to send
TRUE, // not used; must be zero
0 // not used; must be zero
)==0)Caption="ok1";
SendMessage(RichEdit1->Handle,EM_SETEVENTMASK ,0,
ENM_LINK|SendMessage(RichEdit1->Handle,EM_GETEVENTMASK,0,0));

RichEdit1->Lines->Add("http://www.csdn.net");
}
//---------------------------------------------------------------------------
void TForm1::MyMessage(TMessage &myMsg)
{
LPNMHDR lpNmhdr = (LPNMHDR)myMsg.LParam;
if (lpNmhdr->code==EN_LINK)
{
ENLINK* lpENLink = ( ENLINK* )lpNmhdr ;
if (lpENLink->msg == WM_LBUTTONDOWN)
{
RichEdit1->SelStart=lpENLink->chrg.cpMin;
RichEdit1->SelLength=lpENLink->chrg.cpMax-lpENLink->chrg.cpMin;

ShellExecute(Handle,"Open",RichEdit1->SelText.c_str(),0,0,SW_SHOW);

}

}

}

我不懂电脑 2002-08-27

打赏
举报

用TCppWebBrowser

jianlinlong 2002-08-27

打赏
举报

去 www.codelphi.com 看看，里面有一篇文章正好是，不过是 delphi 的

提问：如何在RichEidt中单击URL连接时，并打开浏览器转到相应的网页上？

相关推荐