标题:如何在BCB中制作模仿超级链接效果
只看楼主
Knocker
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:10454
专家分:603
注 册:2004-6-1
结帖率:92.86%
 问题点数:0 回复次数:0 
如何在BCB中制作模仿超级链接效果
  用过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;
  }
  注意:本示例应该包含头文件。
搜索更多相关主题的帖子: BCB 效果 链接 超级 模仿 
2006-03-26 20:05



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-52995-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.246311 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved