📄 29.htm

📁 C++Builder教学大全

💻 HTM

字号:



<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>如何在BCB中制作模仿超级链接效果</title>

</head>

<div><center>

<table border="0" width="640">

  <tr><td align="center"><b>如何在BCB中制作模仿超级链接效果</b></td></tr>

  <tr><td align="center"><font color="#CC9933"></font></td></tr>

  <tr><td>&nbsp;&nbsp;用过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&lt; 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>　　注意：本示例应该包含头文件。</td></tr>

</table></center></div>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -