关于OleContainer嵌入的问题,如何屏蔽WORD的右键菜单

Question

关于OleContainer嵌入的问题,若嵌入WORD,请教如何屏蔽WORD的右键菜单.
不想让右键菜单出现,望各位高手指点!

Answer 1

不想让WORD的右键菜单出现，你可以自制一个右键菜单放上去，不加入你不想要的东西，比如“复制”。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
 OleContainer1.CreateLinkToFile('c:\\1.ppt',false);
end;procedure TForm1.OleContainer1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbright then
  begin
    form1.PopupMenu1.Popup((X+115),(Y+90));
  end;
end;
将ole的popupmenu设为PopupMenu1

Answer 3

to fristykily(firstykily) ( ) :
我想要的是原位激活，一体化的效果。你说的这个不行
要这样引入OLE 。olec1.CreateObjectFromFile('D:\222.doc',false);谢谢参与，也会给分。