如何把菜单中的退出菜单移动到Form的最右边 ( 积分: 50 )

B

bianjt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-17

• #1

出于界面特色考虑想把菜单中的退出菜单入到FORM的最右边,其它菜单位置仍不变,有哪位大虾知道怎么做?

 

B

bianjt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-17

• #2

出于界面特色考虑想把菜单中的退出菜单入到FORM的最右边,其它菜单位置仍不变,有哪位大虾知道怎么做?

 

3

340340

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-17

• #3

ModifyMenu(MainMenu.Handle, 5, mf_ByPosition or mf_Popup
or mf_Help, MenuHelp.Handle, '退出');
5这个数字是根据你的MainMenu中退出的序号-1得到的,根据实际情况改就是

 

B

bianjt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-17

• #4

没有成功,有两个问题想问清楚一下:
mf_ByPosition or mf_Popup or mf_Help是什么意思?
MenuHelp是什么?

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-17

• #5

这样：
其中第2个参数1是你的退出菜单的index

mf_ByPosition or mf_Popup or mf_Help的意思是
修改一个当前菜单的项(mf_ByPosition),将一个右键菜单添加到这个项目下(mf_Popup),风格为help(就是靠右边 mf_Help)

self.Menu:=nil;
ModifyMenu(MainMenu1.Handle,1,mf_ByPosition or mf_Help,0,'exit');
self.Menu:=MainMenu1;

//第一句和最后一句是刷新菜单
//我这个没有将一个右键菜单加入，而是直接把你当前菜单里的一项变为靠右

 

3

340340

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-17

• #6

如楼上所言了，实际情况好象是需要将index值减一（其实就是将你的“退出”的index值减一，即取前一个主menu的index），不过你试试看吧，我记不太清楚。

 

B

bianjt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-17

• #7

[]
ModifyMenu(MMenu.Handle, 2, mf_ByPosition or mf_Popup or mf_Help, mfexit.Handle, '退出');

问题已解决，接分

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-17

• #8

？？减1？ 为什么？MainMenu1.Items的下标是从0开始的，也就是说第一个菜单项的index是0，依次类推