prog((TipsForm)
hiDisplayAppDBox(
?name ‘TipsForm
?dboxBanner "Warning"
?buttonLayout ‘Close
?dboxText "BALABALA"
)
)
hiDisplayModelessDBox(‘temp "Warning" "BALBALA" "" "")
prog((tempForm)
hiCreateAppForm( ;创建一个AppForm。
?name ‘tempForm ;给这个AppForm命名
?fields list( ;每一段窗体的list输入到fields中。
hiCreateCyclicField( ;定义第一段field,hiCreateCyclicField代表一种选择框。
?name ‘tempfield ;给一段field命名。
?prompt "tempPrompt" ;field的标题。不同的field有不同的输入要求。
?choices list("A" "B" "C")
)
)
?formTitle "tempTitle" ;这个AppForm的标题。
?buttonLayout ‘OKCancel ;定义底部选项的类型。
)
unless(hiDisplayForm(‘tempForm) ;指定显示哪个AppForm,并增加一个返回值的判断。
return(nil) ;如果点击了Cancel,返回nil,则return跳出prog,程序再返回nil。
)
)
原文:https://www.cnblogs.com/yeungchie/p/12864652.html