关于工具栏类

[十月鹰飞]

请问各位大虾:在VFP中定义的工具栏类,如何让它显示在指定的顶层表单中呀,小弟做的工具栏类加载时全加载上了系统窗口上.

[520zyb]

直接添加到顶层表单中啊

[十月鹰飞]

试了，不行呀，工具栏总在顶层表单后面，不能出来，而且在代码也设置了工具栏的showwindow属性。

[sunsunup]

THISFORMSET.TOOLNAME.DOCK(0|1|2|3)

[十月鹰飞]

试过了，还试着把它们连编成可执行文件后，脱离了VFP环境后，如果有工具栏，窗口一闪就没有了，去了以后一切正常

[westbulls]

令你的顶层表单desktop=.t.

[firesky67]

不行啊

[xhcbh]

新建类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

[xbdvcx2]

关注

[xhcbh]

你把你的源代码中主窗口的文件发给我看看。
[e-mail]