运行效果为：单击“无标题”按钮，将隐藏表单的标题栏，且该按钮的标题为“有标题”；单击“有标题”按钮 效果相反
注：系统日期是显示在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()
应该是这个意思吧。本回答被提问者采纳
