UC知道如何在BCB中打开超链接
来源：百度知道 编辑：UC知道 时间：2024/06/05 04:44:17
BCB中，想在RichEdit中打开已经显示为超链接的网页地址。激发事件是当鼠标放在超链接上且已变为手型，按下即可打开网页。怎样重载窗体的WndProc？下面的代码我已经输入且编译运行了，但是不能打开超链接。
在窗体的构造函数中添加以下代码：
__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
在窗体的构造函数中添加以下代码：
__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
以我的思路来分析是这样的步骤：
1、获取RichEdit1的TEXT
2、获取当前默认浏览器（可通过注册表获得）
3、打开浏览器，并将RichEdit1的网址以参数的形式付给浏览器
void TForm1::test() //自己写的函数
{
}
void __fastcall TForm1::RichEdit1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button == mbLeft)
test();
}
RichEdit的Cursor设置成crHandPoint