-
Notifications
You must be signed in to change notification settings - Fork 0
/
main.go
62 lines (47 loc) · 1.19 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
package main
import (
"fmt"
_ "github.com/ying32/govcl/pkgs/winappres"
"github.com/ying32/govcl/vcl"
"github.com/ying32/govcl/vcl/types"
"github.com/ying32/govcl/vcl/types/messages"
)
type TForm1 struct {
*vcl.TForm
}
var form1 *TForm1
func main() {
vcl.Application.Initialize()
vcl.Application.SetMainFormOnTaskBar(true)
vcl.Application.CreateForm(&form1)
vcl.Application.Run()
}
func (f *TForm1) OnFormCreate(sender vcl.IObject) {
form1.SetCaption("Message Test")
form1.SetPosition(types.PoScreenCenter)
form1.EnabledMaximize(false)
form1.SetWidth(500)
form1.SetHeight(400)
form1.SetOnWndProc(f.OnFormWndProc)
}
func (f *TForm1) OnFormWndProc(msg *types.TMessage) {
// 这句一定要
f.InheritedWndProc(msg)
switch msg.Msg {
case messages.WM_MOUSEMOVE:
case messages.WM_LBUTTONDOWN:
fmt.Println("左键接下")
case messages.WM_LBUTTONUP:
fmt.Println("左键抬起")
case messages.WM_LBUTTONDBLCLK:
fmt.Println("左键双击")
case messages.WM_RBUTTONDOWN:
fmt.Println("右键接下")
case messages.WM_RBUTTONUP:
fmt.Println("右键抬起")
case messages.WM_RBUTTONDBLCLK:
fmt.Println("右键双击")
case messages.WM_MOUSEWHEEL:
fmt.Println("鼠标滚轮")
}
}