大佬教程收集整理的这篇文章主要介绍了Golang绑定VCL组件，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。
TGoEvent = (geClick,geClose,geFormClose,geFormCloseQuery,geChange,geUpDownClick,geTreeViewChange,geListViewChange,geDblClick,gePaint,geResize,geShow,geMenuChange,geEnter,geExit,gePopup,geBalloonClick,geLinkClick,geExecute,geUpdate,geException,geTimer,geMinimize,geRestore,geHide,geKeyDown,geKeyPress,geKeyUp,geMouseDown,geMouseEnter,geMouseLeave,geMouseMove,geMouseUp,geMouseWheel);
所有的代码只会存储在OSC的码云中，原因在于go包路径的问题。
至于github上会建一个同名的项目govcl，但不会提交任何代码
package main
import (
"gitee.com/ying32/govcl/vcl"
)
var (
mainForm *vcl.TForm
)
func main() {
vcl.Application.Initialize()
mainForm = vcl.Application.CreateForm()
mainForm.SetCaption("Hello")
mainForm.EnabledMaximize(false)
mainForm.ScreenCenter()
vcl.Application.Run()
}
文件名后面带有def的为手动编写
by: ying32
// govcl project main.go
// go.exe build -i -ldflags="-H windowsgui"
package main
import (
"fmt"
"gitee.com/ying32/govcl/vcl"
"gitee.com/ying32/govcl/vcl/api"
"gitee.com/ying32/govcl/vcl/rtl"
"gitee.com/ying32/govcl/vcl/win"
)
var (
mainForm *vcl.TForm
trayicon *vcl.TTrayIcon
)
func main() {
// 异常捕获
defer func() {
err := recover()
if err != nil {
fmt.Println("Exception: ",err)
vcl.ShowMessage(err.(error).Error())
}
}()
fmt.Println("main")
icon := vcl.NewIcon()
//icon.LoadFromFile(".\\imgs\\0.ico")
icon.LoadFromResourceID(rtl.MainInstance(), 3)
defer icon.Free()
vcl.Application.Initialize()
vcl.Application.SetOnException(func(vcl.IObject,vcl.IObject) {
fmt.Println("exception.")
})
vcl.Application.SetIcon(icon)
vcl.Application.SetTitle("Hello World!")
vcl.Application.SetMainFormOnTaskBar(true)
mainForm = vcl.Application.CreateForm()
mainForm.SetWidth(600)
mainForm.SetHeight(400)
mainForm.SetOnClose(func(Sender vcl.IObject,Action uintptr) {
fmt.Println("close")
})
fmt.Println("MainForm ClientRect: ",mainForm.ClientRect())
mainForm.SetOnCloseQuery(func(Sender vcl.IObject,CanClose uintptr) {
rtl.SetFormCanClose(CanClose,vcl.MessageDlg("是否退出?",api.MtInformation,api.MbYes,api.MbNo) == vcl.MrYes)
fmt.Println("OnCloseQuery")
})
mainForm.SetCaption(vcl.Application.Title())
mainForm.EnabledMaximize(false)
mainForm.SetDoubleBuffered(true)
mainForm.SetPosition(api.PoScreenCenter)
mainForm.SetKeyPreview(true)
mainForm.SetOnKeyDown(func(Sender vcl.IObject,Key uintptr,Shift int32) {
fmt.Println(rtl.InSets(uint32(Shift),api.SsCtrl))
fmt.Println(rtl.GetKey(Key))
})
mainForm.SetOnMouseDown(func(sender vcl.IObject,button,shift,x,y int32) {
fmt.Println("Button:",button == api.MbLeft,",X:",y:",y)
fmt.Println("OnMouseDown")
})
chk := vcl.NewCheckBox(mainForm)
chk.SetParent(mainForm)
chk.SetChecked(true)
chk.SetCaption("测试")
chk.SetLeft(1)
chk.SetTop(60)
chk.SetOnClick(func(vcl.IObject) {
fmt.Println("chk.Checked=",chk.Checked())
})
// action
action := vcl.NewAction(mainForm)
action.SetCaption("action1")
action.SetOnUpdate(func(sender vcl.IObject) {
vcl.ActionFromObj(sender).SetEnabled(chk.Checked())
})
action.SetOnExecute(func(vcl.IObject) {
fmt.Println("action execute")
})
btn := vcl.NewButton(mainForm)
btn.SetParent(mainForm)
btn.SetBounds(250, 30, 90, 25)
btn.SetCaption("action")
btn.SetAction(action)
trayicon = vcl.NewTrayIcon(mainForm)
trayicon.SetIcon(icon)
trayicon.SetHint(mainForm.Caption())
trayicon.SetVisible(true)
trayicon.SetOnClick(func(vcl.IObject) {
trayicon.SetBalloonTitle("test")
trayicon.SetBalloonTimeout(10000)
trayicon.SetBalloonHint("我是提示正文啦")
trayicon.ShowBalloonHint()
fmt.Println("TrayIcon Click.")
})
// img
img := vcl.NewImage(mainForm)
img.SetBounds(132, 156, 97)
img.SetParent(mainForm)
img.Picture().LoadFromFile(".\\imgs\\1.jpg")
//img.SetStretch(true)
img.SetProportional(true)
// linklabel
linklbl := vcl.NewLinkLabel(mainForm)
linklbl.SetAlign(api.AlBottom)
linklbl.SetCaption("<a href=\"https://github.com/ying32/govcl\">govcl测试链接</a>")
linklbl.SetParent(mainForm)
linklbl.SetOnLinkClick(func(sender vcl.IObject,link string,linktype int32) {
fmt.Println("link label: ",link,type: ",linktype)
rtl.SysOpen(link)
})
// menu
mainMenu := vcl.NewMainMenu(mainForm)
item := vcl.NewMenuItem(mainForm)
item.SetCaption("File(&F)")
mainMenu.Items().Add(item)
item2 := vcl.NewMenuItem(mainForm)
item2.SetCaption("MemoryStreamTest")
item2.SetOnClick(func(vcl.IObject) {
mem := vcl.NewMemoryStream()
defer mem.Free()
mem.Write([]byte("测试"))
mem.SaveToFile("test.txt")
mem.SetPosition(0)
n,bs := mem.Read(int32(mem.Size()))
fmt.Println("n:",n,bs:",bs,str:",string(bs))
})
item.Add(item2)
item2 = vcl.NewMenuItem(mainForm)
item2.SetCaption("Exit(&E)")
item2.SetShortCutFromString("Ctrl+Q")
item2.SetOnClick(func(vcl.IObject) {
mainForm.Close()
})
item.Add(item2)
// mainForm.EnabledMinimize(false)
// mainForm.EnabledSystemMenu(false)
button := vcl.NewButton(mainForm)
button.SetCaption("消息")
button.SetParent(mainForm)
button.SetOnClick(func(vcl.IObject) {
fmt.Println("button click")
vcl.ShowMessage("这是一个消息")
vcl.Application.MessageBox("Hello!","Message",win.MB_YESNO+win.MB_ICONINFORMATION)
})
button.SetLeft(50)
button.SetTop(50)
button.SetAlign(api.AlRight)
edit := vcl.NewEdit(mainForm)
edit.SetParent(mainForm)
edit.SetLeft(1)
edit.SetTop(30)
edit.SetTextHint("测试")
edit.SetOnChange(func(vcl.IObject) {
fmt.Println("edit OnChange")
})
button2 := vcl.NewButton(mainForm)
button2.SetParent(mainForm)
button2.SetCaption("a")
button2.SetWidth(100)
button2.SetHeight(28)
button2.SetOnClick(func(vcl.IObject) {
fmt.Println("button2 click")
edit.SetText("Hello!")
fmt.Println("ScreenWidth:",vcl.Screen.Width(),ScreenHeight:",vcl.Screen.Height())
})
button2.SetAlign(api.AlTop)
combo := vcl.NewComboBox(mainForm)
combo.SetAlign(api.AlBottom)
combo.SetParent(mainForm)
combo.SetText("ffff")
combo.Items().Add("1")
combo.Items().Add("2")
combo.SetItemIndex(0)
combo.SetOnChange(func(vcl.IObject) {
if combo.ItemIndex() != -1 {
fmt.Println("combo Change: ",combo.Items().Strings(combo.ItemIndex()))
}
})
page := vcl.NewPageControl(mainForm)
page.SetParent(mainForm)
page.SetAlign(api.AlBottom)
sheet := vcl.NewTabSheet(mainForm)
sheet.SetPageControl(page)
sheet.SetCaption("第一页")
// 需要先将TabSheet设置了父窗口，TListView才可用，不然就会报错
lv1 := vcl.NewListView(mainForm)
lv1.SetAlign(api.AlClient)
lv1.SetParent(sheet)
lv1.SetViewStyle(api.VsReport)
lv1.SetRowSelect(true)
lv1.SetReadOnly(true)
lv1.SetGridLines(true)
col := lv1.Columns().Add()
col.SetCaption("序号")
col.SetWidth(100)
col = lv1.Columns().Add()
col.SetCaption("名称")
col.SetWidth(200)
col = lv1.Columns().Add()
col.SetCaption("内容")
col.SetWidth(200)
lv1.SetOnClick(func(vcl.IObject) {
if lv1.ItemIndex() != -1 {
item := lv1.Selected() // lv1.Items().Item(lv1.ItemIndex())
fmt.Println(item.Caption(),item.SubItems().Strings(0),item.SubItems().Strings(1))
}
})
lv1.Items().BeginUpdate()
for i := 1; i <= 50; i++ {
lstitem := lv1.Items().Add()
lstitem.SetCaption(fmt.Sprintf("%d",i))
lstitem.SubItems().Add(fmt.Sprintf("第%d",i))
lstitem.SubItems().Add(fmt.Sprintf("内容%d",i))
}
lv1.Items().EndUpdate()
sheet = vcl.NewTabSheet(mainForm)
sheet.SetCaption("第二页")
sheet.SetPageControl(page)
tv1 := vcl.NewTreeView(mainForm)
tv1.SetAutoExpand(true)
tv1.SetParent(sheet)
tv1.SetAlign(api.AlClient)
tv1.SetOnClick(func(vcl.IObject) {
if tv1.SelectionCount() > 0 {
node := tv1.Selected()
fmt.Println("text:",node.Text(),index:",node.Index())
}
})
tv1.Items().BeginUpdate()
node := tv1.Items().AddChild(nil,"首个")
for i := 1; i <= 50; i++ {
tv1.Items().AddChild(node,fmt.Sprintf("Node%d",i))
}
node = tv1.Items().AddChild(nil,"第二个")
for i := 1; i <= 50; i++ {
tv1.Items().AddChild(node,i))
}
tv1.Items().EndUpdate()
fmt.Println("Compoment Count:",mainForm.ComponentCount())
// mainForm.ScreenCenter()
vcl.Application.Run()
}以上是大佬教程为你收集整理的Golang绑定VCL组件全部内容，希望文章能够帮你解决Golang绑定VCL组件所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。