运行效果为:单击“无标题”按钮,将隐藏表单的标题栏,且该按钮的标题为“有标题”;单击“有标题”按钮 效果相反
注:系统日期是显示在label上的 不是在文本框里 整个表单的标题栏是:显示时间
高手帮帮忙啊 谢谢啦。。。
先在表单的init事件中加上:
public a
a=.t.
this.caption=dtoc(date())
然后添加一个按钮到表单中,将按钮的caption属性改为"无标题",然后给按钮的click事件加上:
if a
thisform.titlebar=0
this.caption="有标题"
else
thisform.titlebar=1
this.caption="无标题"
endif
a=!a
public a
a=.t.
this.caption=dtoc(date())
然后添加一个按钮到表单中,将按钮的caption属性改为"无标题",然后给按钮的click事件加上:
if a
thisform.titlebar=0
this.caption="有标题"
else
thisform.titlebar=1
this.caption="无标题"
endif
a=!a
温馨提示:答案为网友推荐,仅供参考
第1个回答 2011-05-31
按钮.click:
ThisForm.TitleBar=iif(ThisForm.TitleBar,.F.,.T.)
表单的init:
thisform.label1.caption=dtoc(date())
thisform.caption=time()
应该是这个意思吧。本回答被提问者采纳
ThisForm.TitleBar=iif(ThisForm.TitleBar,.F.,.T.)
表单的init:
thisform.label1.caption=dtoc(date())
thisform.caption=time()
应该是这个意思吧。本回答被提问者采纳