F
faguobali
Unregistered / Unconfirmed
GUEST, unregistred user!
[]大侠不要急,先把我的问题看完吧!
具体情况是这样的:我原本想建立一工具条,可以拖动、改变形状,
而且工具条里面不是BUTTON,而是可以弹出类似MAINMENU的多级菜单,
通过以下方法解决了这一问题,
1.放一个controlbar
2.放一个toolbar到controlbar上
3.放一个ImageList,添加图标
4.放一个popupmenu,添加若干菜单项
5.在toolbar上点右键
6.然后new toolbutton多个
7.全选toolbutton1,toolbutton2,toolbutton3...,另Grouped:=true
8.设置toolbutton1.style=tbsButton,
toolbutton2.style=tbsButton,
toolbutton3.style=tbsButton...
9.设置toolbutton1.menuitem,toolbutton2.menuitem,toolbutton3.menuitem...
10.toolbar.flat:=true;
11.controlbar.docksite:=true;
12.toolbar.dragkind:=dkdock;
然后运行,此时工具条,可以拖动、改变形状了,但新的问题又出现了,
各项菜单默认的HotKey用如下方法无法去掉,
大侠不要急,先把我的问题详细的看完吧!你先照我发上去的做一遍就知道了:
如果菜单标题是英文还好些,仅在首字母下加条线;要是中文标题,统统在后面
加上“(X)”字样,难看得很!我早已试过了如下方法:
1.菜单的属性如下设置
Menu.AutoHotkeys := maManual;
Menu.AutoLineReduction := maManual;此方法失效!!!
2.于是又尝试TMenuItem的AutoHotkey属性调节,也无效!!!
另外我指的HotKeys是热键,不是指ShortCut快捷键;
还有我未用PopMenu,只用了MainMenu,按理说与PopMenu的HotKeys属性是无关的。
望各路高手在百忙之中抽出时间来赐教,小弟在此多表谢意了。:))
[]
[red][/red]
具体情况是这样的:我原本想建立一工具条,可以拖动、改变形状,
而且工具条里面不是BUTTON,而是可以弹出类似MAINMENU的多级菜单,
通过以下方法解决了这一问题,
1.放一个controlbar
2.放一个toolbar到controlbar上
3.放一个ImageList,添加图标
4.放一个popupmenu,添加若干菜单项
5.在toolbar上点右键
6.然后new toolbutton多个
7.全选toolbutton1,toolbutton2,toolbutton3...,另Grouped:=true
8.设置toolbutton1.style=tbsButton,
toolbutton2.style=tbsButton,
toolbutton3.style=tbsButton...
9.设置toolbutton1.menuitem,toolbutton2.menuitem,toolbutton3.menuitem...
10.toolbar.flat:=true;
11.controlbar.docksite:=true;
12.toolbar.dragkind:=dkdock;
然后运行,此时工具条,可以拖动、改变形状了,但新的问题又出现了,
各项菜单默认的HotKey用如下方法无法去掉,
大侠不要急,先把我的问题详细的看完吧!你先照我发上去的做一遍就知道了:
如果菜单标题是英文还好些,仅在首字母下加条线;要是中文标题,统统在后面
加上“(X)”字样,难看得很!我早已试过了如下方法:
1.菜单的属性如下设置
Menu.AutoHotkeys := maManual;
Menu.AutoLineReduction := maManual;此方法失效!!!
2.于是又尝试TMenuItem的AutoHotkey属性调节,也无效!!!
另外我指的HotKeys是热键,不是指ShortCut快捷键;
还有我未用PopMenu,只用了MainMenu,按理说与PopMenu的HotKeys属性是无关的。
望各路高手在百忙之中抽出时间来赐教,小弟在此多表谢意了。:))
[]
[red][/red]