用Static Text Control代替Commandbutton,分别对Clicked、lbuttondown、lbuttonup事件编程如下:
clicked() this.borderstyle=styleraised! //按钮弹起
lbuttondown() this.borderstyle=stylebox!//按钮按下
lbuttonup() this.borderstyle=styleraised! //按钮弹起
如需Default Button则在控件所在窗口key事件编程如下:
key() //按下回车键触发控件的click()事件,假设控件名字为onlogin
if (key=keyenter!) then
onlogin.event post clicked()
end if
如需实例请来Email索取