回 帖 发 新 帖 刷新版面

主题:再次请教工具条

不好意思,再次请教工具条。请老师赐教。

如何给我的系统窗口增加一个工具条?要求:
    1、程序运行时,该工具条自动停靠在窗口的上端;
    2、在窗口列表中,该工具条不能做为窗口被陈列在列表中。

我的方法一:
    创建一个窗口,加入工具条,然后定义有关属性,让它作为工具条并自动停靠。
    这样,工具条被当做一个子窗口,被程序计列,无法消除。
我的方法二:
    拷贝类。不错,工具条不再被当成一个窗口。
    但,我无法修改它,因为它存在父类。

我很讨厌用类了,因为我不熟悉。
请问:我能否在我的项目中创建一个工具条?谢谢!

回复列表 (共1个回复)

沙发

Dock 方法 

停靠一个 ToolBar 或 Form 对象到 VFP主窗口。要为表单使用 Dock 方法, 表单的 Dockable 属性必须设置为 1。
Toolbar.Dock(nLocation [, X, Y])
Form.Dock(nLocation, [, oForm])
 

参数
nLocation 
          指定工具栏停放的位置。                                常量 
–1        不停放工具栏。                                     TOOL_NOTDOCKED
 
0         在 VFP 主窗口的顶部停放工具栏。                      TOOL_TOP
1         在 VFP 主窗口的左边停放工具栏。                      TOOL_LEFT
2         在 VFP 主窗口的右边停放工具栏。                      TOOL_RIGHT
3         在 VFP 主窗口的底部停放工具栏。                      TOOL_BOTTOM
4         Tab 停靠一个表单到另一个窗口。(仅表单可用)           TOOL_TAB
 

X, Y 指定工具栏停放位置的水平坐标和垂直坐标。 
oForm 指定一个要停靠到另一表单的对象引用



试试这个
publ oF
oF = CREATEOBJECT("Form")
oF.Dockable = 1
oF.Visible = .T.
oF.Dock(2)

我来回复

您尚未登录,请登录后再回复。点此登录或注册