AutoHotkey Community

ToolTip(1,"text","title","C1 O1 xTrayIcon yTrayIcon")

ToolTip(1,"","","GTTM_POP")

Gui,Add,Button,,Button1
ToolTip(1,"A centered ToolTip","","J1 P1 AButton1")
Gui,Add,Button,,Button2
ToolTip(2,"A centered BalloonTip","Balloon","J1 O1 P1 AButton2")
Gui, Show
Return
GuiClose:
ToolTip()
ExitApp

OnMessage(0x201,"WM_LBUTTONDOWN") ;Will make ToolTip Click possible
WM_LBUTTONDOWN(wParam,lParam,msg,hWnd){
   If tt%hwnd% {
      MsgBox, 262148,ToolTip Clicked, Close ToolTip
      IfMsgBox Yes
         ToolTip(tt%hwnd%)
   }
}
OnMessage(0x4e,"WM_NOTIFY") ;Will make LinkClick and ToolTipClose possible
WM_NOTIFY(wParam, lParam, msg, hWnd){
   ToolTip("",lParam,"")
}
Sleep, 10
ToolTip(1,"<a>Click</a>`n<a>Onother one</a>`n"
. "<a This link is different`nit uses different text>Different</a>`n"
. "<a>ExitApp</a>","ClickMe","L1 P99 C1")
hwnd:=ToolTip(2,"Click me anywhere!","Click Me","P99 xTrayIcon yTrayIcon C1")
tt%hwnd%:= 1
Return

ToolTip:
link:=ErrorLevel
SetTimer, MsgBox, -10
Return

1ToolTipClose:
ExitApp

MsgBox:
If Link=ExitApp
   ExitApp
MsgBox % Link
Return

OnMessage(0x4e,"WM_NOTIFY")
Gui,Add,Button,,Time
Gui,Add,Button,,Username
Gui,Add,Button,,User is Admin?
Gui,Add,Button,,IP addresses
Loop 4
   ToolTip("Button1"," ","","p1 aButton" . A_Index)
gui,show
Return

WM_NOTIFY(wParam,lParam){
   If (control:=ToolTip("",lparam)){
      Tool:=ErrorLevel
      MouseGetPos,,,,ClassNN
      If (ClassNN="Button1"){
         FormatTime,text,%A_Now%,HH:mm:ss
         Title:="Time"
      } else if (ClassNN="Button2"){
         text:=A_UserName,title:="UserName"
      } else if (ClassNN="Button3"){
         text:=(A_ISAdmin ? "Yes" : "No"),title:="User is Admin?"
      } else if (ClassNN="Button4"){
         text:= "1: " A_IPAddress1 "`n2: " A_IPAddress2 "`n3: " A_IPAddress3 "`n4: " A_IPAddress4
         title:="IP Addresses"
      }
      ToolTip(control,text,title,"G1 A" . Tool . " I" (InStr("Button1Button2",ClassNN) ? "2" : "1"))
   }
}

GuiClose:
ExitApp

OnMessage(0x4e,"WM_NOTIFY")
Gui,Add,ListView,r20 AltSubmit Checked gFocus hwndLVhWnd vListView,Test
Gui,+LastFound
hwnd:=WinExist()
ToolTip("ListView","default","","P1 aSysListView321")
Loop 20
   LV_Add("",A_Index)
gui,show
Return

WM_NOTIFY(wParam,lParam){
   global
   If (control:=ToolTip("",lparam)){
      Tool:=ErrorLevel
      If (control="ListView" and row>0){
         LV_GetText(text,row,1)
         ToolTip(control,"Row Text: " text,action,"G1 A" . Tool)
      } else
         ToolTip(control,"check or select an item`nthen move mouse away and back to list","","G1 A" . Tool)
   }
}

Focus:
   If InStr(ErrorLevel,"F",1){
      row:=A_EventInfo
      action:="Focused"
   } else If InStr(ErrorLevel,"C",1){
      row:=A_EventInfo
      action:="Checked"
   }
SetTimer,PostMessage,-10
Return

PostMessage:
KeyWait,LButton
PostMessage,0x200,1,,,ahk_id %hwnd%
MouseGetPos,x,y
MouseMove,% x+1,% y
Return

GuiClose:
ExitApp

{
ToolTip(99,"Drive D Is Mounted:`n`n"
      . "`n`n"
      , "TrueCrypt"
      , "D5 Q1 O1 T180 E0.0.100.50 BWhite FBlack I" . GetAssociatedIcon("C:\Program Files\TrueCrypt\TrueCrypt.exe")
      . " P99 X" 1590 . " Y" . 1196)
Return
}

Sleep, 100
hwnd:=ToolTip(1,"test","","e60.60.60.60")
Loop
{
   ToolTip(1,"","","GTTM_TRACKPOSITION.TTMTRACKACTIVATE")
   WinSet,Transparent,100,ahk_id %hwnd%
}

Escape::ExitApp