CSDN博客

img iamfancy

如何在 BCB 中制作模仿超级链接效果

发表于2001/9/22 22:18:00  664人阅读

分类: C++ Builder

  用过Winamp的朋友知道Winamp的界面中有一些模仿的超级链接,可以把你直接带到它的相关网站中去。下面这个例子就实现了这种功能,当鼠标点击其中的仿超级链接时,你就会直接到达《电脑商情报》的网址:
  新建一个应用,在窗体Form1上添加一个名为Label1的TLabel组件,然后在代码编辑器中添加以下代码:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Label1→Cursor=crHandPoint;
    Label1→Font→Color=clBlue;
    Label1→Font→Style=Label1→Font→Style< Label1→Caption=“http://www.cbinews.com”;
}

void __fastcall TForm1::Label1Click(TObject *Sender)
{
    ShellExecute(Handle,NULL,Label1→Caption.c_str(),NULL,NULL,SW_SHOWNORMAL);
}

void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
    Label1→Font→Color=clRed;
}

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
    Label1→Font→Color=clBlue;
}

  注意:本示例应该包含头文件。

-=--=--=--=--=--=--=--=--=--=--=--=--=--=--=--=--=-
             //
  __________/LB/___   OUTINN
 /  _[]_   /____/  /
/_________/| () |/__/ http://outinn.yeah.net/
 |  ____ /-| __ |-/|  Welcome to visit OUTINN!
 |__|==|___| || |__|
 -=--=--=- |_||_| =-  Fancy, outinn@china.com
阅读全文
0 0

相关文章推荐

img
取 消
img