cqboyqx 发表于 2020-6-10 09:51:53

请教哈 鼠标停留控件上气泡怎么不显示?【已解决】

本帖最后由 cqboyqx 于 2020-6-10 14:01 编辑

RT,请教哈大佬们,当鼠标停留在一个控件上 ,怎么不弹出呢 ?是哪里的问题?
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>

Local $hEdit, $sTitle = "ShowBalloonTip", $sText = "Displays a balloon tip associated with an edit control",$sText1 = "Program will exit"
#Region ### START Koda GUI section ### Form=
$Hgui = GUICreate("关于气泡的提示示例", 459, 276, 192, 124)
GUISetFont(12, 400, 0, "MS Sans Serif")
$hEdit = GUICtrlCreateLabel("鼠标停留弹出气泡", 152, 72, 132, 24)
$Button = GUICtrlCreateButton("关闭", 176, 144, 75, 25)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
      $Cursor = GUIGetCursorInfo($Hgui)
            If (Not @error) And $Cursor = $hEdit Then
                        _GUICtrlEdit_ShowBalloonTip($hEdit, $sTitle, $sText, $TTI_INFO)
            EndIf
      $nMsg = GUIGetMsg()
      Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
      Case $Button
                        _GUICtrlEdit_ShowBalloonTip($Button, $sTitle, $sText1, $TTI_INFO)
      EndSwitch
WEnd




afan 发表于 2020-6-10 11:38:40

本帖最后由 afan 于 2020-6-10 11:44 编辑

直接用 GUICtrlSetTip 设置工具提示不好吗

Local $sTitle = "ShowBalloonTip", $sText = "Displays a balloon tip associated with an edit control", $sText1 = "Program will exit"

GUICreate("关于气泡的提示示例", 459, 276, 192, 124)
GUISetFont(12, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("鼠标停留弹出气泡", 152, 72, 132, 24)
GUICtrlSetTip(-1, $sText, $sTitle, 0, 1)
GUICtrlCreateButton("关闭", 176, 144, 75, 25)
GUICtrlSetTip(-1, $sText1, $sTitle, 0, 1)
GUISetState()

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case -3
                        Exit
        EndSwitch
WEnd

cqboyqx 发表于 2020-6-10 11:56:54

afan 发表于 2020-6-10 11:38
直接用 GUICtrlSetTip 设置工具提示不好吗

谢谢谢谢A大威武这种气泡看着舒服

floor6ggg 发表于 2020-6-10 12:58:42

应该是控件的原因

_GUICtrlEdit_ShowBalloonTip,控件必须是edit,lable控件应该不适用………………

第11行更改为: $hEdit = GUICtrlCreateEdit("鼠标停留弹出气泡", 2, 2, 394, 268)

能出效果,但是很闪。。。。。。。。。。很晕。。。。。。。。。。闪到怀疑人生。。。。。。

A大的 GUICtrlSetTip   是正解

cqboyqx 发表于 2020-6-10 13:59:39

floor6ggg 发表于 2020-6-10 12:58
应该是控件的原因

_GUICtrlEdit_ShowBalloonTip,控件必须是edit,lable控件应该不适用………………


对   如果按照你这样改了后是闪如果把20行的_GUICtrlEdit_ShowBalloonTip($hEdit, $sTitle, $sText, $TTI_INFO)放到11行的后面就正常了

afan 发表于 2020-6-11 14:59:14

cqboyqx 发表于 2020-6-10 13:59
对   如果按照你这样改了后是闪如果把20行的_GUICtrlEdit_ShowBalloonTip($hEdit, $sTitle, $sText,...

_GUICtrlEdit_ShowBalloonTip 不是用于鼠标悬停提示,而是立即提示的。一般用于对当下输入的字符做出的即时提示,类似于“只能输入数字”之类。

cqboyqx 发表于 2020-6-11 16:47:25

afan 发表于 2020-6-11 14:59
_GUICtrlEdit_ShowBalloonTip 不是用于鼠标悬停提示,而是立即提示的。一般用于对当下输入的字符做出的即 ...

谢谢A大的帮忙

ttmv2019sx 发表于 2020-6-12 07:09:35

afan 发表于 2020-6-10 11:38
直接用 GUICtrlSetTip 设置工具提示不好吗

GUICtrlSetTip ,A大不知道这个时间是否可以延长的,我发现没有几秒就消失掉了,

afan 发表于 2020-6-12 13:29:50

本帖最后由 afan 于 2020-6-12 14:32 编辑

ttmv2019sx 发表于 2020-6-12 07:09
GUICtrlSetTip ,A大不知道这个时间是否可以延长的,我发现没有几秒就消失掉了,
这个跟系统的一样,都是5秒。要改变延时就用 _GUIToolTip_Create() 方式,或者直接用 Tooltip() 控制显示与关闭

ttmv2019sx 发表于 2020-6-13 17:53:43

afan 发表于 2020-6-12 13:29
这个跟系统的一样,都是5秒。要改变延时就用 _GUIToolTip_Create() 方式,或者直接用 Tooltip() 控制显示 ...

好的,谢谢A大

itqijian 发表于 2020-7-16 16:48:09

测试了下效果,好东西。
页: [1]
查看完整版本: 请教哈 鼠标停留控件上气泡怎么不显示?【已解决】