繁體中文当前位置: 首页 > 图文教程 > 开发语言 > Delphi > 为VB应用程序定制浮动提示
- Delphi
- Delphi设计简易对象垃圾回收框架
- Delphi开发Web应用程序打印组件
- Delphi客户服务器应用开发（四）
- Delphi自定义部件开发（一）
- Delphi自定义部件开发（二）
- Delphi自定义部件开发（三）
- Delphi自定义部件开发（四）
- 开发Delphi对象式数据管理功能（一）
- 开发Delphi对象式数据管理功能（二）
- 开发Delphi对象式数据管理功能（三）
- 开发Delphi对象式数据管理功能（四）
- 开发Delphi对象式数据管理功能（五）
- 用Delphi语言来学设计模式之简单工厂篇
- Delphi2005和DUnit搭建敏捷开发平台记录
- 你想成Delphi高手吗?快来学Delphi快捷键
- Borland最新版开发工具Delphi2005抢先预览
- 用Delphi实现JPEG格式图像的显示
- 用DELPHI编程访问SQL SERVER数据库
- 用Delphi编制趣味动画鼠标
- 用Delphi实现选单的自动隐藏功能
Delphi 中的 为VB应用程序定制浮动提示
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-30 浏览: 72 ::
收藏到网摘: n/a
在Win95中，当我们将鼠标移至某个控件上时，便会在鼠标所指之处弹出一个小窗口，告诉我们这个控件的用途，这便是“浮动提示”。这种提示方式可以及时地提供有关信息，那么怎样在VB中实现这种功能呢?
首先我们在Form的任意位置放一个Text1作为浮动提示的通用文本显示框，几个重要属性设置为：
Appearance:0－Flat
BackColor:窗口背景颜色
BorderStyle:1－FixedSingle
ForeColor:窗口文本颜色
Height:文本框高度，一般取286左右
Visible:False
如果该Text1不是在所有按钮设置以后才放置的，则在显示在它之后放置的按钮的浮动提示时，浮动提示将被该按钮所掩盖，这时需要按Ctrl＋J或者在“Edit”菜单中选择“BringtoFront”将Text1带回前台。
然后，在Module1通用模块中定义一个用于存放任意浮动提示文本的公共FloatMessage字符串变量： PublicFloatMessageAsString
再在Form的General中加入一个如下公用函数，其功能是用一个文本框自动匹配和管理所有浮动提示： PublicFunctionShowMessage()IfText1
评论 (0) All
