📄 20000804022.htm

📁 C++Builder教学大全

💻 HTM

字号:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

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

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

<META content="MSHTML 5.00.2614.3500" name=GENERATOR></HEAD>

<BODY aLink=#ff0000 bgColor=#ffffff leftMargin=0 link=#187800 topMargin=0 

vLink=#990099>

<DIV align=center>

<TABLE border=0 cellPadding=0 cellSpacing=0 height=76 width=744>

  <TBODY>

  <TR>

    <TD>

      <P align=center><FONT size=3><B><BR>如何在BCB中制作模仿超级链接效果</B></FONT></P>

      <P>用过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>　　注意：本示例应该包含头文件。 </P>

      <P align=center></P></TD></TR></TBODY></TABLE></DIV></BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -