-
等级
本版专家分：31结帖率 100% -
我现在想要在popupmenu的菜单项中进行自画，并能响应鼠标事件。但是其TMenuItem中并不包含鼠标事件。若继承TCustomMenuItem类似乎可以加入鼠标事件，但是产生的新类与TItemMenu类型不匹配，无法添加到popupmenu中。各位大虾有何妙招？
展开阅读全文
-
等级
本版专家分：31
-
具体内容见：《Delphi中制作特效菜单》
http://industry.ccidnet.com/art/1077/20031001/808829_1.html
“…… 但是，利用这种方法制作自定义菜单的功能还是受到了一定的限制。我们只能对OnAdvancedDrawItem、OnClick、OnDrawItem、OnMeasureItem等有限几个事件作出反应并对菜单项进行定制，我们没有办法对鼠标事件作出反应。利用鼠标事件，当鼠标滑过菜单项时，我们可以实现诸如加亮、渐变或其他的菜单项显示技术。显然这是十分有意义的。……”
该怎么实现呢？多谢了！
-
等级
本版专家分：132207勋章
-
- 签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
-
-
名人
2019年 荣获名人称号
2013年 荣获名人称号
-
- 状元 2012年 总版技术专家分年内排行榜第一
-
-
进士
2013年 总版技术专家分年内排行榜第七
2011年 总版技术专家分年内排行榜第五
2009年 总版技术专家分年内排行榜第九
-
-
你是不是写错了,应该是TMenuItem吧
-
等级
本版专家分：17900勋章
-
- 红花 2010年5月 Delphi大版内专家分月排行榜第一
-
-
你要加什么鼠标操作？
-
等级
本版专家分：13547
-
除了鼠票点击外还有其他的？
onclick,onupdateui?
嘿
-
等级
本版专家分：17900勋章
-
- 红花 2010年5月 Delphi大版内专家分月排行榜第一
-
-
这个用钩子吧
function MenuWndProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM):
LRESULT; stdcall;
var
begin
case MSG of
WM_WM_LBUTTONDOWN:
begin
end;
Wm_.. //加你要处理的消息
end;
end;
function WindowsHook(Code: Integer; wParam: Integer; lParam: Integer): LRESULT; stdcall;
var
ClassName: array[0..63] of Char;
lastWndProc: Pointer;
begin
if (Code = HC_ACTION) and ((pStruct^.message <> WM_CREATE) or (pStruct^.message <> $01E2)) and
(GetClassName(pStruct^.hwnd, @ClassName[0], SizeOf(ClassName)) = 6) and
(StrPas(@ClassName[0]) = '#32768') then
begin
lastWndProc := Pointer(GetWindowLong(pStruct^.hwnd, GWL_WNDPROC));
if lastWndProc <> @MenuWndProc then
begin
SetWindowLong(pStruct^.hwnd, GWL_WNDPROC, Integer(@MenuWndProc));
MenuOldWndProc := lastWndProc;
end;
end;
Result := CallNextHookEx(WH_CALLWNDPROC, Code, wParam, lParam);
end;
SetWindowsHookEx(WH_CALLWNDPROC, WindowsHook, hInstance, GetCurrentThreadId);
-
等级
本版专家分：17900勋章
-
- 红花 2010年5月 Delphi大版内专家分月排行榜第一
-
-
pStruct: PCWPStruct;
pStruct := PCWPStruct(lParam);
第2个函数加这句
-
等级
本版专家分：31
-
感谢各位的热心解答。
可能大家还没太明白我的意思。MenuItem菜单项的事件中不包含onMousemove等事件。比如我要在鼠标移到某个菜单项时菜单的颜色或者文字发生改变，甚至是判断鼠标的坐标位置，这时候就需要用到鼠标事件。当然类似的还有onMouseUp等事件。不知道如何实现？
-
等级
本版专家分：31
-
sanguomi，谢谢您的回复，但是您的方法我还是没能实现。该怎么调用您定义的这几个函数？
-
等级
本版专家分：31
-
顶，希望还有更好的答案
-
等级
本版专家分：23578勋章
-
- 签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
-
-
红花
2019年2月 其他开发语言大版内专家分月排行榜第一
2019年1月 Delphi大版内专家分月排行榜第一
2018年8月 Delphi大版内专家分月排行榜第一
2018年7月 Delphi大版内专家分月排行榜第一
2018年4月 Delphi大版内专家分月排行榜第一
2018年3月 Delphi大版内专家分月排行榜第一
-
- 黄花 2016年11月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2011年10月 其他开发语言大版内专家分月排行榜第三
2010年8月 其他开发语言大版内专家分月排行榜第三
2007年5月 其他开发语言大版内专家分月排行榜第三
-
-
最简单的方法是拦截WM_NCHITTEST消息，不过没有验证是否对popupmenu也有效。
- Android Material Design：PopupMenu
Android Material Design 引入的PopupMenu类似过去的上下文菜单，但是更灵活。 如图所示： 现在给出实现上图PopupMenu的代码。 本例是一个普通的Button触发弹出PopupMenu。 测试的MainActivity.java ： ...
- PopupMenu菜单项显示图标：
加入头文件： import java.lang.reflect.Field; import com.android.internal.view.menu.MenuPopupHelper; 加入反射： try { Field field = mPopupMenu.getClass().getDeclaredField("mPopup...
- 根据状态值改变PopupMenu显示的菜单项
通过判断一个布尔值...1、给PopupMenu添加三个菜单项aa1、bb1、cc1，设置一个布尔型状态值flag 2、给PopupMenu中Onpopup的事件处理函数添加如下代码： cc1->Visible = flag; 3、添加一个按钮，在按钮事件响应函
- Android：自定义PopupMenu的样式（显示图标/设置RadioButton图标）
PopupMenu是Android中一个十分轻量级的组件。与PopupWindow相比，PopupMenu的可自定义的能力较小，但使用更加方便。
- Android:PopupMenu显示item中的android:icon
最近在学习过程中，想实现一个PopupMenu，但是item中的android:icon设置项完全没反应，所以得自己编写代码实现，经过查找资料和尝试，以下代码完美实现PopupMenu显示item中的android:icon，效果图如下： ...
- Android-使用PopupMenu创建弹出式菜单
PopupMenu 代表弹出式菜单，它会在指定组件上，默认情况下，PopupMenu会显示该组件，PopupMenu可增加多个菜单项。 实际效果： 具体实现部分： 首先是主活动中的调用： public class MainActivity extends ...
- Flutter学习笔记（五）聊天界面：PopupMenu，ListView的使用以及简单聊天布局
Flutter学习笔记（五）聊天界面：PopupMenu，ListView的使用以及简单聊天布局PopupMenu的使用ListView的使用简单的聊天布局 距离上一次更新也过了一段时间了，期间忙着学车去了，现在有空再来写一篇。 PopupMenu的...
- Android 笔记 popupMenu 显示图标
popupMenu多数时候，我们需要设置popupMenu，这样可以在点击的时候显示菜单，可操作性比系统菜单，toolbar菜单强，所以用处更加广泛。popupMenu的菜单实际上和toolbar上的是一样的，设置内容的方法类似，都可以从xml...
- Android菜单Menu，PopupMenu的使用
菜单项关联的Activity 上下文菜单 选项菜单和子菜单SubMenu Java代码中定义 代码区 使用XML文件定义 Activity代码 menu_mainxml代码 contextxml代码 如何菜单项设置关联Activity 上下文菜单 开发上下文菜单...
- 11 PopupMenu菜单和代码例子
PopupMenu 弹出式菜单 API 11以上可用 1. 获取弹出菜单的对象 2. 在res里的menu添加菜单项 3. 将布局里的菜单项 给弹出菜单 4. 进行监听弹出菜单 5. 展示出弹出菜单 JAVA代码:package com.fmy.popup;import ...
- JAVA popupMenu弹出菜单了，怎样实现点击项产生事件
如图：我弹出的这个PopupMenu ，想在点击添加好友响应事件，但是他ActionListener，该...响应事件，求解,刚那个朋友说的不对。求解。
- MATLAB下拉菜单popupmenu的简单使用介绍
但是帮助文档真的很有帮助，比如这次，POPUPMENU菜单项，我一直不知道如何添加下拉框的内容，找了很多次百度也没找到，最后还是在帮助文档那里找到的。下面就简单介绍POPUPMENU的使用吧： 首先，从GUIDE里面拉出一...
- 记录一下Popmenu的使用以及一些坑：自定义Popupmenu、Menu、Popupmenu添加icon
尝试使用Popupmenu，避免不必要的坑壹、Popupmenu的基本使用，定义和获取对应的menu菜单项。贰、Popupmenu设置字体风格和弹出定位。添加分割线。叁、为Popupmenu添加icon：两种方法：反射、子菜单模式a、利用反射...
- Java弹出式菜单（PopupMenu）
弹出式菜单（PopupMenu） 构造方法 public PopupMenu(); 例如：PopupMenu popM=new PopupMenu(); MenuItem miOpen=new MenuItem(“打开”); MenuItem miSave=new MenuItem(“保存”); popM.add(miOpen); popM.add...
- PopupMenu用法
PopupMenu是种显示位置不固定的弹出菜单，因为它显示在参照控件下方，所以展示位置随着参照控件的位置变化而变化，而且，坑人的是PopupMenu有两个版本，一个是在v7包中的，一个是在系统自带包中的，我下面讲的是v7...
- VB6升级到VB2010之八: PopUpMenu升级~
vb2010将菜单控件化了，所以原来的PopUpMenu就无法使用了。。需使用ContextMenuStrip控件， 然后用：ContextMenuStrip1.Show 弹出。
- 菜单实现之PopupMenu
PopupMenu（弹出菜单）：点击view后在view下面...1.创建popup_menu PopupMenu popupMenu = new PopupMenu(this, button);//button是popupMenu的宿主，也可以是其他任意view popupMenu.getMenuInflater().inflate(R.me
- PopupMenu弹出式菜单的基本使用
PopupMenu，弹出菜单，一个模态形式展示的弹出风格的菜单，绑在在某个View上，一般出现在被绑定的View的下方（如果下方有空间）。 注意：弹出菜单是在API 11和更高版本上才有效的。 核心步骤： （1）通过...
- delphi TDbGrid 右键 PopupMenu 菜单只在有数据的地方弹出
====================================================== 注：本文源代码点此下载 ====================================================== ...关联dbgrid的 popupmenu 倒是可以实现,但是这样
- Dev PopupMenu实现自定义右键菜单，添加二级菜单，添加菜单项分割
private void Form1_MouseUp(object sender, MouseEventArgs e) { if (e.Button == MouseButtons.Right) ...PopupMenu popupMenu1 = null; private void Form1_Load(object sender, EventArgs e) { popupMe...
- delphi自定义控件菜单PopupMenu
delphi自定义控件菜单PopupMenu 包括dbPopupMenu 及downbutton右键菜单 两个控件
- 用Android 关于PopupMenu的
弹出菜单是停靠在一个View上的一个模式菜单。如果View对象下方有空间，那么弹出菜单将显示在停靠对象的下方，否则会显示在上方。这是非常有用的： 1. 给指定内容的操作提供一个溢出式菜单（如图4所示的Gmail的...
- 修改完成状态（popupmenu菜单二级菜单单击事项）单击独立事件写法
单击独立事件写法： procedure TForm3.N25Click(Sender: TObject); var SAdq:TADOQuery; begin try SAdq:=TADOQuery.Create(nil); SAdq.Connection:=frmDataPool.ADOConnection1; with SAdq do begin ...
- Devexpress新版本的右键菜单PopupMenu使用
Devexpress新版本的右键菜单PopupMenu使用 1、打开设计面板，右键->Run Designer 2、会提示创建BarManager，点“是” 主要是这个属性要绑定Manager 3、点Sub & Popup Menus -> Add （选择列表控件）-...
- Android学习笔记之PopupMenu弹出菜单
（1）布局文件：用于弹出菜单的处罚button： <RelativeLayout xmlns:android="http://schemas.android.com/apk/res/android" xmlns:tools="http://schemas.android.com/tools" android:layout_width="match_...
- Delphi鼠标左键点击Button弹出快捷菜单Popupmenu
procedure TForm1.SpeedButton4Click(Sender: T...PopupMenu2.Popup(Mouse.CursorPos.X-30,Mouse.CursorPos.Y+12); end; 在光标所在位置弹出菜单; procedure TForm1.Label1Click(Sender: TObject); var Po...