Memo的菜单问题

Question

在PageControl的TabSheet里面，放一个Memo组件。
给PageControl指定一个右键菜单，为什么运行时Memo组件没有用自己的菜单而用的PageControl指定的右键菜单？
请问如何让Memo不与PageControl共用右键菜单？

Answer 1

你给Memo和PageControl分别指定右键

Answer 2

分别指定右键菜单吗？不行啊。我要让Memo用它默认的右键菜单哦。

Answer 3

tabsheet的popupmenu属性和memo的popupmenu属性连不同的popupmenu就行拉

Answer 4

tabsheet的popupmenu属性和memo的popupmenu属性连不同的popupmenu就行拉

Answer 5

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift=shift+[ssRight] then
  begin
    pagecontrol1.PopupMenu := Nil;
  end;
end;

Answer 6

麻烦再问一下，如果这个Memo是动态创建的，如何调用鼠标事件呢？

Answer 7

动态创建的只须在创建时，指定其鼠标事件就可以了，也就是：
memo1.OnMousedown:=Memo1MouseDown;在Pagecontrol的Popup菜单弹出时，可判断弹出位置是否在Memo中，若在则取消弹出菜单 (abort)

Answer 8

差不多了。谢谢。分给你了。
不过再问问，如果我的所有Memo都是动态创建的，那OnMouseDown事件从何得来？