📄 lc_bcb_81.html
字号:
<html>
<head>
<title>如何在BCB中制作模仿超级链接效果</title>
<meta http-equiv="目录类型" content="文本/html; 字符集=gb2312">
</head>
<body>
<p align=center><strong><font size="5">如何在BCB中制作模仿超级链接效果</font></strong></p>
<p><br>
用过Winamp的朋友知道Winamp的界面中有一些模仿的超级链接，可以把你<br>
直接带到它的相关网站中去。下面这个例子就实现了这种功能，当鼠标点击其<br>
中的仿超级链接时，你就会直接到达《电脑商情报》的网址：<br>
新建一个应用，在窗体Form1上添加一个名为Label1的TLabel组件，然后<br>
在代码编辑器中添加以下代码：<br>
void __fastcall TForm1::FormCreate(TObject ＊Sender)<br>
{<br>
Label1→Cursor=crHandPoint;<br>
Label1→Font→Color=clBlue;<br>
Label1→Font→Style=Label1→Font→Style< Label1→Caption=“http://www.cbinews.com”;<br>
}<br>
<br>
void __fastcall TForm1::Label1Click(TObject ＊Sender)<br>
{<br>
ShellExecute(Handle,NULL,Label1→Caption.c_str(),NULL,NULL,SW_SHOWNORMAL);<br>
}<br>
<br>
void __fastcall TForm1::Label1MouseMove(TObject ＊Sender, TShiftState Shift,<br>
int X, int Y)<br>
{<br>
Label1→Font→Color=clRed;<br>
}<br>
<br>
void __fastcall TForm1::FormMouseMove(TObject ＊Sender, TShiftState Shift,<br>
int X, int Y)<br>
{<br>
Label1→Font→Color=clBlue;<br>
}<br>
注意：本示例应该包含头文件。</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -