从继承父弹出菜单停止VCL子控件

Question

从继承父弹出菜单停止VCL子控件

Ana*_*oge 4 delphi inheritance parent popupmenu delphi-2007

我有一个Delphi 2007 VCL TPanel,分配了TPopupMenu.面板上有一些TEdit控件.编辑继承父面板的弹出菜单.我想不允许这个弹出窗口继承,所以编辑将显示默认的Windows TEdit弹出菜单,包括复制,剪切,粘贴等,但还没有找到办法.似乎没有"ParentPopupMenu"类型属性来设置哪些控件从父组件继承它.

Answer 1

Rem*_*eau 5

尝试将PopupMenu的AutoPopup属性设置为False,然后在需要时手动弹出()菜单,因为在TPanel的OnContextMenu事件中.

谢谢,这个OnContextPopup代码似乎工作:var控件:TControl; 开始控制:= FindVCLWindow(Mouse.CursorPos); 如果Control = MyPanel则开始MyMenu.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y); 处理:=真; 结束; 结束; (3认同)

归档时间：	15 年，4 月前
查看次数：	1343 次
最近记录：	10 年，7 月前