⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 lc_bcb_81.txt

📁 c++ builder 的一些txt文档
💻 TXT
字号:

如何在BCB中制作模仿超级链接效果
如何在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;
 
  }
  注意:本示例应该包含头文件。

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -