📄 bcb_n17.htm

📁 C++Builder教学大全

💻 HTM

字号:

 

<html>

<head>

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

<meta http-equiv="目录类型" content="文本/html; 字符集=gb2312">

</head>

<body bgcolor="#FFFFFF">

<table width="100%" border="0" height="285">

  <tr> 

    <td height="35"> 

      <div align="center" class="p14"><font color="#000000">如何在BCB中制作模仿超级链接效果</font></div>

    </td>

  </tr>

  <tr valign="top"> 

    <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&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>

<br>

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -