29.htm
来自「C++Builder教学大全」· HTM 代码 · 共 14 行
HTM
14 行
<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> 用过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> 注意:本示例应该包含头文件。</td></tr>
</table></center></div>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?