2,749
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
xhcbh 2004-03-01
- 打赏
- 举报
你把你的源代码中主窗口的文件发给我看看。
zhmfxh@pub.tz.jsinfo.net
zhmfxh@pub.tz.jsinfo.net
xbdvcx2 2004-03-01
- 打赏
- 举报
关注
xhcbh 2004-03-01
- 打赏
- 举报
新建类tbrToolbarname，派生于Toolbar，在表单的Activate中输入：
IF TYPE("thisform.tbrToolbarname")="O" AND !ISNULL(thisform.tbrToolbarname)
RETURN
ENDIF
SET CLASSLIB TO 类名 additive
thisform.tbrToolbarname=createobject('子类名')
this.tbrToolbarname.dock(0)
this.tbrToolbarname.Show
IF TYPE("thisform.tbrToolbarname")="O" AND !ISNULL(thisform.tbrToolbarname)
RETURN
ENDIF
SET CLASSLIB TO 类名 additive
thisform.tbrToolbarname=createobject('子类名')
this.tbrToolbarname.dock(0)
this.tbrToolbarname.Show
firesky67 2004-02-23
- 打赏
- 举报
不行啊
westbulls 2004-02-04
- 打赏
- 举报
令你的顶层表单desktop=.t.
十月鹰飞 2003-12-09
- 打赏
- 举报
试过了，还试着把它们连编成可执行文件后，脱离了VFP环境后，如果有工具栏，窗口一闪就没有了，去了以后一切正常
sunsunup 2003-12-08
- 打赏
- 举报
THISFORMSET.TOOLNAME.DOCK(0|1|2|3)
十月鹰飞 2003-12-06
- 打赏
- 举报
试了，不行呀，工具栏总在顶层表单后面，不能出来，而且在代码也设置了工具栏的showwindow属性。
520zyb 2003-12-06
- 打赏
- 举报
直接添加到顶层表单中啊
