怎样根据菜单或菜单项的句柄获的菜单或菜单项对象？(0分)

W

wjp888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-27

• #1

怎样根据菜单或菜单项的句柄获的菜单或菜单项对象？

 

W

wjp888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-27

• #2

top

 

M

mypeoplelxt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-27

• #3

var
a:HMENU;
i:integer;
begin
showmessage(inttostr(aaaa1.Tag ));
a:=aaaa1.Handle ;
// TMenuItem(Menus.FindItem(word(a),fkHandle)).Tag :=2;
for i:=0 to form1.ComponentCount -1do
if Components is TMenuItem then
if TMenuItem(Components).Handle =a then
begin
TMenuItem(Components).tag:=1;
break;
end;
showmessage(inttostr(aaaa1.Tag ));
注释掉的那个方法不知道为什么不能用，按道理可以用的

 

W

wjp888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-27

• #4

to mypeoplelxt:
该菜单不属于本窗口菜单，属于OLE对象的合并菜单。该方法不能找开，请再想别的方法，
谢谢！