示例:
Code: Select all
; =================================
; 界面
; =================================
Gui, -Caption +Border +HwndHGUI
Gui, Margin, 20, 20
Gui, Color, White
Gui, Font, s12, Marlett ; 设置字体为 Marlett
Gui, Add, Button, x578 w29 h25 -Theme 0x8000 gGuiMinimize, 0 ; 最小化按钮
Gui, Add, Button, x+0 wp hp -Theme 0x8000 Disabled, 1 ; 最大化按钮
Gui, Add, Button, x+0 wp hp -Theme 0x8000 gGuiClose, r ; 关闭按钮
Gui, Font ; 恢复默认字体
Gui, Add, ActiveX, xm w645 h300, http://urldecode.org
Gui, Show
Return
; =================================
; 最小化
; =================================
GuiMinimize:
Gui, Minimize
Return
; =================================
; 退出
; =================================
GuiClose:
ExitApp
; ======================================================================================
; 拖拽界面
WM_LBUTTONDOWN(wParam, lParam, msg, hwnd) {
global HGUI
static WM_LBUTTONDOWN := OnMessage(0x0201, "WM_LBUTTONDOWN")
If (hwnd = HGUI)
PostMessage, 0xA1, 2
}
当然了,这样创建的按钮不够漂亮。要美化的话可以用 Class_ImageButton,参考北京时间校准器。如果还要按钮 ToolTip 提示,可以用 Class_GuiControlTips。