代码拉取完成,页面将自动刷新
package main
import (
"fmt"
_ "github.com/ying32/govcl/pkgs/winappres"
"github.com/ying32/govcl/vcl"
"github.com/ying32/govcl/vcl/types"
)
type TMainForm struct {
*vcl.TForm
Btn1 *vcl.TButton
}
var MainForm *TMainForm
func main() {
vcl.Application.Initialize()
vcl.Application.CreateForm(&MainForm, true)
vcl.Application.Run()
}
func (f *TMainForm) OnFormCreate(sender vcl.IObject) {
f.ScreenCenter()
f.SetCaption("taskDialog演示")
f.Btn1 = vcl.NewButton(f)
f.Btn1.SetParent(f)
f.Btn1.SetCaption("TaskDialog")
f.Btn1.SetLeft(10)
f.Btn1.SetTop(10)
f.Btn1.SetOnClick(f.OnBtn1Click)
}
func (f *TMainForm) OnFormDestroy(sender vcl.IObject) {
}
func (f *TMainForm) OnBtn1Click(sender vcl.IObject) {
taskdlg := *vcl.NewTaskDialog(f)
defer taskdlg.Free()
taskdlg.SetTitle("确认移除")
taskdlg.SetCaption("询问")
taskdlg.SetText("移除选择的项目?")
taskdlg.SetExpandButtonCaption("展开按钮标题")
taskdlg.SetExpandedText("展开的文本")
taskdlg.SetFooterText("底部文本")
rd := vcl.AsTaskDialogRadioButtonItem(taskdlg.RadioButtons().Add())
rd.SetCaption("单选按钮1")
rd = vcl.AsTaskDialogRadioButtonItem(taskdlg.RadioButtons().Add())
rd.SetCaption("单选按钮2")
rd = vcl.AsTaskDialogRadioButtonItem(taskdlg.RadioButtons().Add())
rd.SetCaption("单选按钮3")
taskdlg.SetCommonButtons(0) //rtl.Include(0, 0))
btn := vcl.AsTaskDialogButtonItem(taskdlg.Buttons().Add())
btn.SetCaption("移除")
btn.SetModalResult(types.MrYes)
btn = vcl.AsTaskDialogButtonItem(taskdlg.Buttons().Add())
btn.SetCaption("保持")
btn.SetModalResult(types.MrNo)
taskdlg.SetMainIcon(types.TdiQuestion)
if taskdlg.Execute() {
if taskdlg.ModalResult() == types.MrYes {
vcl.ShowMessage("项目已移除")
fmt.Println(taskdlg.RadioButton().Caption())
}
}
}
此处可能存在不合适展示的内容,页面不予展示。您可通过相关编辑功能自查并修改。
如您确认内容无涉及 不当用语 / 纯广告导流 / 暴力 / 低俗色情 / 侵权 / 盗版 / 虚假 / 无价值内容或违法国家有关法律法规的内容,可点击提交进行申诉,我们将尽快为您处理。