AutoHotkey Community

SetTimer, WatchCursor, 1000 ; in atuo-execute section, this updates slowly, but it is better than having a flickering mouse...

WatchCursor:
MouseGetPos, , , , ControlWatch ; var name

IfWinActive, Dictionary
{
If ControlWatch = Button6
ToolTip, enable/disable searching of`nVen. Buddhadatta's Concise Pali English Dictionary
If ControlWatch = Button7
ToolTip, enable/disable searching of`nMonier-Williams' Sanskrit English Dictionary
If ControlWatch <> Button6
If ControlWatch <> Button7
ToolTip, ;
}
return

;first, define all tooltips, they must be the control name followed by "_TT" (or "_tt")
_tt = ;this tooltip appears when "nothing" is below the mouse (except that i commented it out)
button_TT = This button will make your computer self destruct
words_TT = sorry, dont know why this doesnt work
Firstname_tt = Type your first name here.
Lastname_tt = Type your last name here.
Address_tt = Type your address here.
City_tt = Type your city here.
State_tt = Type your two digit state abreviation here.
Zip_tt = Type your 5 digit zip code here.


;whenever the mouse moves, run the function
OnMessage(0x200, "WM_MOUSEMOVE")

gui, add, text, vwords, unfortunately text cannot have a tooltip
gui, add, edit,section w100 vfirstname,
gui, add, edit,x+10 w100 vlastname
gui, add, edit,xs w120 vAddress
gui, add, edit,x+10 w80 vCity
gui, add, edit,x+10 w30 limit2 vState
gui, add, edit,x+10 w50 limit5 vZip
gui, add, button,xm vbutton, THE BUTTON
gui, add, button, vboring, this button does not have a tooltip becuase "boring_tt" was not defined
gui, show
return

WM_MouseMove()
{
   Tooltip := %A_GuiControl%_TT
   Tooltip, %tooltip%
   SetTimer, KillToolTip, 500
   return
}

KillToolTip:
   Tooltip   ;remove
return

GuiClose:
ExitApp

WM_MOUSEMOVE()
{
  global GUI_PREVTIP,GUI_ENABLETOOLTIPS
  GUI_CURTIP := A_GuiControl
  If (GUI_ENABLETOOLTIPS >= 1 and GUI_PREVTIP != GUI_CURTIP)
  {
    ; ToolTips
    _TT := ""
    First_TT := "This is a tooltip for the var 'First'"
    Second_TT := "This is a tooltip for the var 'Second'"

    myToolTip := %GUI_CURTIP%_TT
    ToolTip, %myToolTip%
    SetTimer, RemoveToolTip, 1600
    GUI_PREVTIP := GUI_CURTIP
    Return
  }
}

RemoveToolTip:
  ToolTip
Return

Gui, Add, Edit, vMyEdit
MyEdit_TT := "This is a tooltip for the control whose variable is MyEdit."
Gui, Add, DropDownList, vMyDDL, Red|Green|Blue
MyDDL_TT := "Choose a color from the drop-down list."
Gui, Show
OnMessage(0x200, "WM_MOUSEMOVE")
return

WM_MOUSEMOVE()
{
   static PrevControl, _TT  ; _TT is defined as a static variable (blank) for use by the ToolTip command below.
   CurrControl := A_GuiControl
   If (CurrControl <> PrevControl)
   {
      ToolTip % %CurrControl%_TT
      SetTimer, RemoveToolTip, 4000
      PrevControl := CurrControl
   }
}

RemoveToolTip:
ToolTip
return

GuiClose:
ExitApp

Gui Margin, 2, 2
Gui Add, Edit, w220 vMyEdit
MyEdit_SB := "This control uses the variable MyEdit."
Gui Add, DropDownList, w220 vMyDDL, Red|Green|Blue
MyDDL_SB := "Choose a colour from the drop-down list."
Gui Add, StatusBar,,
Gui Show,,Control info in status bar.
OnMessage(0x200, "WM_MOUSEMOVE")
Return

WM_MOUSEMOVE()
{
   If ! A_GuiControl
      SB_SetText( "" )
   CurrControl := A_GuiControl
   If (CurrControl <> PrevControl)
   {
      SB_SetText( %CurrControl%_SB )
      PrevControl := CurrControl
   }
}

GuiClose:
ExitApp

Gui Margin, 2, 2
Gui Add, Edit, w220 vMyEdit
MyEdit_SB := "This control uses the variable MyEdit."
Gui Add, DropDownList, w220 vMyDDL, Red|Green|Blue
MyDDL_SB := "Choose a colour from the drop-down list."
Gui Add, StatusBar,,
Gui Show,,Control info in status bar.
OnMessage(0x200, "WM_MOUSEMOVE")
Return

WM_MOUSEMOVE()
{
   If ! A_GuiControl
      SB_SetText( "", 1, 1 )
   CurrControl := A_GuiControl
   If (CurrControl <> PrevControl)
   {
      SB_SetText( %CurrControl%_SB, 1, 1 )
      PrevControl := CurrControl
   }
}

GuiClose:
ExitApp

Gui, Add, Edit, vMyEdit
MyEdit_TT := "This is a tooltip for the control whose variable is MyEdit."
Gui ,Add, DropDownList, vMyDDL, Red|Green|Blue
MyDDL_TT := "Choose a color from the drop-down list."
Gui, Add, Edit, vMyEdit2,This don't got no tip
Gui, Show
OnMessage(0x200,"WM_MOUSEMOVE")
return

WM_MOUSEMOVE()
    {
    global
    CurrControl:=A_GuiControl
    if (CurrControl<>PrevControl)
        {
        SetTimer DisplayToolTip,1000
        PrevControl:=CurrControl
        }
    }

DisplayToolTip:
SetTimer DisplayToolTip,off
ToolTip % %CurrControl%_TT
SetTimer,RemoveToolTip,4000
return

RemoveToolTip:
SetTimer RemoveToolTip,off
ToolTip
return

GuiClose:
ExitApp

Gui Margin, 2, 2
Gui Add, Edit, w220 vMyEdit
MyEdit_SB := "This control uses the variable MyEdit."
Gui Add, DropDownList, w220 vMyDDL, Red|Green|Blue
MyDDL_SB := "Choose a colour from the drop-down list."
Gui Add, Edit, w220 vMyDDL2,I ain't got no hint
Gui Add, StatusBar,,
Gui Show,,Control info in status bar.
OnMessage(0x101,"UpdateHint")  ;-- WM_KEYUP
OnMessage(0x202,"UpdateHint")  ;-- WM_LBUTTONUP
UpdateHint()
Return

UpdateHint()
    {
    static PrevControl,_SB
    GUIControlGet CurrControl,FocusV
    If (CurrControl<>PrevControl)
        {
        SB_SetText(%CurrControl%_SB)
        PrevControl:=CurrControl
        }
    }

GuiClose:
ExitApp