请各位为在下指点迷津，谢了。(100分)

wisenow · 2002-11-15

目的：自己重画菜单。 错误：得到菜单的标题是乱七八糟，甚至为空。 代码： procedure WMDRAWITEM(var M: TMessage); message WM_DRAWITEM; procedure TBookCLass.WMDRAWITEM(var M: TMessage); var   BKcolor, txtColor: Cardinal;   R, R1: TRect;   B: HBrush;   mchr: array[0..255] of char; begin   ...      ...      ...   //GetMenuString(FMenu, PDrawItemStruct(M.LParam).itemID, mchr, 255, MF_BYCOMMAND);   //  MessageBox(0, '', '', 0);   // 曾经试用GetMenuString不过得到的是空     //mchr[0] := pchar(PDrawItemStruct(M.LParam).itemData)^;   TextOut(PDrawItemStruct(M.LParam).hDC,           R.Left,           R.Top,           //pchar(Trim(mchr)),           //Length(Trim(mchr)));           pchar(PDrawItemStruct(M.LParam).itemData), // 得到的不完全正确           Length(Trim(pchar(PDrawItemStruct(M.LParam).itemData))));   //MessageBox(0, '', pchar(PDrawItemStruct(M.LParam).itemData), 0);   M.Result := 1; end;

wisenow · 2002-11-15

没人?

wisenow · 2002-11-15

高手呢？

huawdg · 2002-11-15

你为什么不用 Ondrawitem事件呢？

wisenow · 2002-11-15

我的菜单是用API生成的 上面的问题已经解决，使用了数组，先把Menu的Caption保存起来，然后再去查找 不过还有一问题，就是当菜单弹出后，如何让他隐藏？

wisenow · 2002-11-15

期待高手出现

sentiment · 2002-11-18

你的菜单是用API生成的，不代表你以后就一定都用API来写。 难道不能用DELPHI提供的ADDITEM等函数吗？太执照了。

wisenow · 2002-11-18

我为了使程序尽可能的小，所以没有使用VCL

wisenow · 2002-11-18

***********************请注意************************** 上面的问题已经解决，使用了数组，先把Menu的Caption保存起来，然后再去查找 不过还有一问题，就是当菜单弹出后，如何让他隐藏？

jsxjd · 2002-11-24

菜单就是用来让人选的，选后自然隐藏。 你要在什么情况下隐藏？

小雨哥 · 2002-11-24

你的菜单不是使用资源文件而是直接画在窗体上的？如果使用资源文件，在资源文件 脚本中写 POPUP ，或直接使用资源编辑器就行，这样通过 API 创建的菜单应该没有 你所说的问题的呀。

小雨哥 · 2002-11-24

一个例子菜单脚本: MENU MENU DISCARDABLE BEGIN     POPUP "Item"     BEGIN         MENUITEM "Item1", 40001         MENUITEM "Item2",  40002     END END

wisenow · 2002-11-25

to jsxjd: 比如有些程序的TrayIcon弹出的菜单，除非你选择一项，    否则它是不会消失的。 to 小雨哥:谢谢，菜单是动态生成的，这次可能与下次的个数与顺序可    能不同，另外此问题已经解决了，再次感谢你的热心回答，谢谢！

jsxjd · 2002-11-26

用户自然会在空白处去点击一下。 用 showwindow(菜单的handle,SW_hide)试试，应该可以。 不行的话， 如果你要用程序实现，可以用 mouse_event来模拟鼠标点击，但点在控件上就不好了。 刷新一下窗口呢。

wisenow · 2002-11-26

菜单由鼠标的Hook函数通知程序Popup 而且程序没有窗体，只有一个菜单 用ShowWindow好像可以,隐藏菜单 但是当弹出菜单后鼠标在空白处点击并没有被鼠标Hook捕捉到鼠标的单击动作 不知道为什么？还望大虾赐教。

jsxjd · 2002-11-27

在 Form 的 Onclick 中处理。

wisenow · 2002-11-27

thx   no form 怎么办？

wisenow · 2002-12-23

接收答案

wisenow · 2003-02-19

接收答案

wisenow · 2003-02-19

接收答案

请各位为在下指点迷津，谢了。(100分)

wisenow

Unregistered / Unconfirmed

wisenow

Unregistered / Unconfirmed

wisenow

Unregistered / Unconfirmed

huawdg

Unregistered / Unconfirmed

wisenow

Unregistered / Unconfirmed

wisenow

Unregistered / Unconfirmed

sentiment

Unregistered / Unconfirmed

wisenow

Unregistered / Unconfirmed

wisenow

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

小雨哥

Unregistered / Unconfirmed

小雨哥

Unregistered / Unconfirmed

wisenow

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

wisenow

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

wisenow

Unregistered / Unconfirmed

wisenow

Unregistered / Unconfirmed

wisenow

Unregistered / Unconfirmed

wisenow

Unregistered / Unconfirmed

Similar threads