捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论：Delphi气泡提示的实现
delphiqiw 584088 2016/8/15 22:18:06
我读书少，不要骗我，为什么我下载后打开文件代码都没有
goldgenty 35807 2008/10/18 11:08:31
再移到工具栏的空白处，提示
goldgenty 35806 2008/10/18 11:07:18
还是有问题
当工具栏显示一个按钮提示后，再移到无按钮处显示刚才显示的提示，
happinessdepig 35579 2008/9/28 11:35:22
好代码啊！不得不顶
jlwen 33619 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;
jlwen 33618 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 33614 2008/4/9 2:08:32
稍微改了一下,感觉好一点

var
  hWndTip: DWORD;   //把 hWndtip 改成全局变量

procedure AddTipTool(hWnd: DWORD; IconType: Integer; Title, Text: PChar);
const
  TTS_BALLOON =$0040;

  TTM_SETTITLE=WM_USER + 32;
var

  ToolInfo: TToolInfo;
begin
  if hWndTip <> 0 then DestroyWindow(hWndTip);//清除重复出现的提示框 ...  

  hWndTip:=CreateWindow(TOOLTIPS_CLASS, nil,
          WS_POPUP or TTS_NOPREFIX or TTS_BALLOON or TTS_ALWAYSTIP ,
          0, 0, 0, 0, hWnd, 0, HInstance, nil);
  if (hWndTip<>0) then
  begin
    ToolInfo.cbSize:=SizeOf(ToolInfo);
    ToolInfo.uFlags:=TTF_IDISHWND or TTF_SUBCLASS or TTF_TRANSPARENT;
    ToolInfo.uId:=hWnd;
    ToolInfo.lpszText:=Text;
    SendMessage(hWndTip,TTM_ADDTOOL,1,Integer(@ToolInfo));
    SendMessage(hWndTip,TTM_SETTITLE,IconType,Integer(Title));
  end;
  InitCommonControls();
end;
diaodiao 31010 2007/8/28 13:22:30
可以啊,看见气泡了.能不能搞个在托盘出现气泡提示的给我参考啊?
zxp922 18210 2005/9/29 19:19:29
我出试了一下，严重内存泄漏
yaoyl 17696 2005/9/9 20:30:22
这东西是如何实现的,能不能说清楚一点啊,我没看懂.谢谢!
hxt33 17458 2005/9/1 19:43:23
氣泡怎麼出來啊？玩我們啊！！
kinneng 17414 2005/9/1 1:24:06
早知道这样可以打开系统的气泡，因为网上有例子，但没有handle的控件，不能正确显示提示
xsherry 17385 2005/8/31 15:59:11
这个基类是直接从ThintWindow继承下来的，只是override了它的ActivateHint过程而已，至于释放过程应该会沿袭其父类。需要完善的是在处理ToolBar上不同的ToolButton时，似乎其handle都是一致的。如果谁有完善，请发我一份。xsherry@163.com
vagrant2008 17329 2005/8/30 16:42:28
真的有点问题的，请楼主修改一下！
brh616 17305 2005/8/29 22:25:26
严重内存泄漏，请更正。你的hint窗体只创建，不释放的啊?
QDZB 17297 2005/8/29 17:04:31
如何实现？
honglei520 17267 2005/8/28 12:07:36
有BUG,老大
ccbkj 17261 2005/8/28 8:08:13
很好！
真不错，谢谢
defrag 17253 2005/8/27 20:45:03
谢谢你帮我解决了这个问题，向你致敬，
第一页 上一页 下一页 最后页 有 19 条纪录 共1页 1 - 19
 用户名：
 密　码：
自动登陆(30天有效)
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表