社区
Delphi
帖子详情
如何用程序实现hint的效果。
chinajia
2003-10-18 02:02:57
鼠标指向一个东西,就出现提示,像hint一样。
...全文
86
10
打赏
收藏
如何用程序实现hint的效果。
鼠标指向一个东西,就出现提示,像hint一样。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
10 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
966126
2003-10-20
打赏
举报
回复
添加一个TTimer
在窗体的OnMouseMove事件中添加
begin
//当鼠标有移动时则Timer1重新计时
timer1.Enabled:=false;
timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
pos:TPoint;
begin
GetCursorPos(pos); //取得鼠标的当前位置
Application.ActivateHint(pos); //显示鼠标当前所在位置控件的hint
end;
hmily1688
2003-10-20
打赏
举报
回复
学习
chinajia
2003-10-18
打赏
举报
回复
楼上,好。又扩大了hint的应用
jollyfeng
2003-10-18
打赏
举报
回复
将控件的showhint为true然后在hint属性中写上要显示的文字。关于特效就是;
application.hintcolor:=clbule;//改变颜色
application.hintpause:=10;//改变触发时间
application.hinthidepause:=1000;//延长停留时间
chinajia
2003-10-18
打赏
举报
回复
我试试。大家都试一下,这个很有用
hiflower
2003-10-18
打赏
举报
回复
从 THintWindow 继承,可以实现自己的 Hint 方式
zhoutian618
2003-10-18
打赏
举报
回复
你自己Raise里面的控件的源码吧,
我自己也是用RZ里面的控件解决的。
自己写的没有那个效果。
这什么不直接用HINT?
chinajia
2003-10-18
打赏
举报
回复
是在OnMouseMove事件里写,但具体实现那种效果,怎么写呀。
zhoutian618
2003-10-18
打赏
举报
回复
OnMouseMove事件可以啊。
chinajia
2003-10-18
打赏
举报
回复
在线等各位!
Delphi开发技巧之-Forms
实现窗口的最小化动画
效果
将InputQuery定位在窗体居中位置 怪异窗体 手动改变窗体比例 抓屏 拖拽时显示窗口内容 捕获主窗体WM_MOVE消息 改变H
int
字体 改变H
int
的显示时间 改变MessageDlg的按钮标题 最小化控件 最小...
Delphi 光标跟随 (鼠标提示
效果
)代码
程序包括以下实现细节:激活提示窗体,重新引入API函数以便Active_H
int
()调用、H
int
窗体要显示的提示文字、隐藏自己并转发消息给下面控件、鼠标离开通知、窗体过程回调函数、(合适位置)显示窗体、是否超出屏幕宽度、...
Android修改系统自带Spinner字体大小和颜色demo
由于项目需求,最近在研究Spinner,发现系统自带的spinner的字体大小和颜色没法...并且该demo还实现了自定义Spinner样式以及实现h
int
的
效果
,本人第一次制作点9图,,,图片难看,但是功能实现了,有需要的可以借鉴!
TextBox 类似智能提示(C# WinForm)
实现类似google搜索和baidu 输入框
效果
,文本框输入智能提示 内容使用单独的Txt文件保存,重启程序仍旧保存上一次的数据 封装在单独的组件,本人测试已经通过
Delphi编程大师2003 1of5
一个可以实现颜色渐变
效果
的label控件 TEasySize Skinengine 3.1.2 ADOTable TTransitionEffect 一个可以以动画方式显示H
int
的控件 一个能够旋转显示其内的图像的Image控件 Gifimage For Delphi6 Richview1.4.2 ...
Delphi
5,392
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章