Code: Select all
#NoTrayIcon
RegRead, DoubleClickSpeed, HKEY_CURRENT_USER, Control Panel\Mouse, DoubleClickSpeed
If NOT DoubleClickSpeed
DoubleClickSpeed = 500
SetTimer, FocusCheck, 10 ;adjust responsiveness in milliseconds
Return
FocusCheck:
WinWaitActive, ahk_class TTOTAL_CMD
ControlGetFocus, Focus
MouseGetPos, null, null, null, HoveredControl
If NOT( GetKeyState("LButton", "P") OR GetKeyState("RButton", "P") )
AND ( ( InStr(HoveredControl, "TMyListBox") AND InStr(Focus, "TMyListBox") )
OR ( InStr(HoveredControl, "LCLListBox") AND InStr(Focus, "LCLListBox") ) )
ControlFocus, %HoveredControl%
Return
#IfWinActive, ahk_class TTOTAL_CMD
~LButton::
Thread, NoTimers
Sleep, %DoubleClickSpeed%
Thread, NoTimers, false
Return