在BCB中制作模仿超级链接效果
【打印文章】
用过Winamp的朋友知道Winamp的界面中有一些模仿的超级链接,可以把你
直接带到它的相关网站中去。下面这个例子就实现了这种功能,当鼠标点击其
中的仿超级链接时,你就会直接到达《电脑商情报》的网址:
新建一个应用,在窗体Form1上添加一个名为Label1的TLabel组件,然后
在代码编辑器中添加以下代码:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Label1→Cursor=crHandPoint;
Label1→Font→Color=clBlue;
Label1→Font→Style=Label1→Font→Style< Label1→Caption=“http://www.cbinews.com”;
}
void __fastcall TForm1::Label1Click(TObject *Sender)
{
ShellExecute(Handle,NULL,Label1→Caption.c_str(),NULL,NULL,SW_SHOWNORMAL);
}
void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1→Font→Color=clRed;
}
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1→Font→Color=clBlue;
}
注意:本示例应该包含头文件。
直接带到它的相关网站中去。下面这个例子就实现了这种功能,当鼠标点击其
中的仿超级链接时,你就会直接到达《电脑商情报》的网址:
新建一个应用,在窗体Form1上添加一个名为Label1的TLabel组件,然后
在代码编辑器中添加以下代码:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Label1→Cursor=crHandPoint;
Label1→Font→Color=clBlue;
Label1→Font→Style=Label1→Font→Style< Label1→Caption=“http://www.cbinews.com”;
}
void __fastcall TForm1::Label1Click(TObject *Sender)
{
ShellExecute(Handle,NULL,Label1→Caption.c_str(),NULL,NULL,SW_SHOWNORMAL);
}
void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1→Font→Color=clRed;
}
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1→Font→Color=clBlue;
}
注意:本示例应该包含头文件。
本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】