HLink [v2.01]

作者: majkinetor 最近更新时间: nonexistent


Creates in a gui a hyperlink control, like those from websites.

HLink("oldNotify", RegisterCallback(old)
HLink_Add(hGui, X, Y, W, H, Handler="", Text="'HLink Control':")
HLink_add2Form(hParent, Txt, Opt)
HLink_onNotify(Wparam, Lparam, Msg, Hwnd)

关于函数的参数和返回值, 请参阅其源码.

备注

This module is part of the Forms Framework package.

MSDN Reference: http://msdn2.microsoft.com/en-us/library/bb760704.aspx

关于此函数(集)的更新细节和注意事项, 请参见 AutoHotkey 论坛: http://www.autohotkey.com/forum/viewtopic.php?t=53317

许可

此函数(集)是基于 GNU GPL 许可的开源项目. 想了解许可详情, 请参见 gpl-2.0.txt

示例

; #Include HLink.ahk
#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%
#SingleInstance force

   Gui, +LastFound
   hGui := WinExist() +0

   HLink_Add(hGui, 10,  10,  250, 20, "OnLink", "Click 'here':www.Google.com to go to Google" )
   HLink_Add(hGui, 10,  40,  250, 20, "OnLink", "Click 'this link':www.Yahoo.com to go to Yahoo")
   HLink_Add(hGui, 10,  170, 100, 20, "OnLink", "'About HLink':About")
   HLink_Add(hGui, 110, 170, 100, 20, "OnLink", "'Forum':http://www.autohotkey.com/forum/topic19508.html")
   HLink_Add(hGui, 10,  60,  100, 20, "", "'Google':www.Google.com") ;without handler
   Gui, Show, w300 h200
return

OnLink(hCtrl, Text, Link){
    if Link = About
        msgbox Hlink control`nby majkinetor
    else return 1

}

GuiClose:
ExitApp