益友软件工作室

加密金刚锁相关技术 → C++Builder类技术文章 → 如何在BCB中制作模仿超级链接效果

如何在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;

}

注意:本示例应该包含头文件。

特别申明

本栏目的文章都是本人从网上搜集而来,仅供大家学习研究之用,请不要用于商业目的!其中署名“佚名”的,意思是作者不详。如果某些文章未署你的名字,请来信告知,我会补上的。如果你认为某些文章侵犯了你的正当权宜,也请来信,我会将它删除。