捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们
		沪ICP备05001939号	DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索
			精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言

盒子资源分类 全部展开 - 全部合拢

Delphi气泡提示的实现 关键字：气泡 Hint 提示 THintWindow 来　自：原创 平　台：Win9x,Win2k/XP/NT,Win2003 下载所需：0 火柴 深浅度：初级 完成时间：2005/8/22 发布者：xsherry 发布时间：2005/8/27 编辑器：DELPHI7 语　　种：ENGLISH 分　类：窗体 下载浏览：4377/26770 加入到我的收藏 下载错误报错 登陆以后才能下载  用户名：  密　码： 自动登陆(30天有效) 用气泡提示替代传统的提示方式。 输入您的搜索字词 提交搜索表单   Web www.2ccc.com 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ 龙脉加密锁 15元起 Grid++Report 报表 申请支付@网 　相关文章 没有相关文章 相关评论 共有评论19条 当前显示最后6条评论 jlwen 2008/4/9 12:41:00 //解决一下ToolBar上不同的ToolButton 提示时的问题.... procedure THintWin.ActivateHint(Rect:TRect;const AHint:string); begin   try     AddTipTool(WindowFromPoint(Mouse.CursorPos),1,Pchar(Application.Title), PChar(Caption));//Application.Hint));   finally     FLastActive := GetTickCount;   end; end; jlwen 2008/4/9 12:43:14 procedure THintWin.ActivateHint(Rect:TRect;const AHint:string); begin   try     caption := AHint;//不好意思, 刚刚漏掉了....     AddTipTool(WindowFromPoint(Mouse.CursorPos),1,Pchar(Application.Title), PChar(Caption));//Application.Hint));   finally     FLastActive := GetTickCount;   end; end; happinessdepig 2008/9/28 11:35:22 好代码啊！不得不顶 goldgenty 2008/10/18 11:07:18 还是有问题 当工具栏显示一个按钮提示后，再移到无按钮处显示刚才显示的提示， goldgenty 2008/10/18 11:08:31 再移到工具栏的空白处，提示 delphiqiw 2016/8/15 22:18:06 我读书少，不要骗我，为什么我下载后打开文件代码都没有 我要发表评论 查看全部评论

		DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1