-
Notifications
You must be signed in to change notification settings - Fork 0
/
main.go
68 lines (53 loc) · 1.42 KB
/
main.go
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
// +build windows
package main
import (
"fmt"
"syscall"
"github.com/ying32/govcl/vcl"
"github.com/ying32/govcl/vcl/types"
"github.com/ying32/govcl/vcl/win"
)
var (
oldWndPrc uintptr
)
func main() {
vcl.Application.SetIconResId(3)
vcl.Application.Initialize()
vcl.Application.SetMainFormOnTaskBar(true)
mainForm := vcl.Application.CreateForm()
mainForm.SetCaption("Windows Messages")
mainForm.SetPosition(types.PoScreenCenter)
mainForm.SetWidth(300)
mainForm.SetHeight(200)
newWndProc := syscall.NewCallback(WndProc)
mainForm.SetOnDestroy(func(sender vcl.IObject) {
fmt.Println("FormOnDestroy")
// 完成后要恢复的
win.SetWindowLongPtr(mainForm.Handle(), win.GWL_WNDPROC, oldWndPrc)
})
oldWndPrc = win.SetWindowLongPtr(mainForm.Handle(), win.GWL_WNDPROC, newWndProc)
fmt.Println("newWndProc:", newWndProc)
fmt.Println("oldWndPro:", oldWndPrc)
btn := vcl.NewButton(mainForm)
btn.SetParent(mainForm)
btn.SetCaption("按钮1")
btn.SetLeft(50)
btn.SetTop(50)
vcl.Application.Run()
}
func WndProc(hWnd uintptr, message uint32, wParam, lParam uintptr) uintptr {
switch message {
case win.WM_SYSCOMMAND:
switch wParam {
case win.SC_MAXIMIZE:
fmt.Println("最大化")
case win.SC_MINIMIZE:
fmt.Println("最小化")
case win.SC_RESTORE:
fmt.Println("恢复")
case win.SC_CLOSE:
fmt.Println("关闭")
}
}
return win.CallWindowProc(oldWndPrc, types.HWND(hWnd), message, wParam, lParam)
}