RichEdit控件为什么不能使用右键的“复制，全选”等功能？

Question

是vcl把这个右键菜单的消息屏蔽了！

Answer 1

你自己写代码了
使用TPopupMenu控件，将RichEdit的PopupMenu属性指向它

Answer 2

比如这个过程就屏蔽了窗体上所有的右件菜单
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, Outline, DirOutln, ComCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure MyDefineProcedure(var Msg: TMsg; var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.MyDefineProcedure(var Msg: TMsg; var Handled: Boolean);
  begin
    if msg.message=WM_RBUTTONDOWN then msg.message:=WM_NULL;
  end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 application.OnMessage:=MyDefineProcedure;
end;end.

Answer 3

1：在窗体上放一个TImageList和一个TActionList,TActionList.Images设为你的TImageList;
2：放一个TPopupMenu,Images设为ImageList1;
3：双击ActionList1,点击右键，选择"New Stantard Action..."，添加如下Action:TEditCopy、TEditCut、TEditDelete、TEditPaste、TEditSelectAll、TEditUndo。
4：编辑你的PopupMenu1，添加六项，Action属性分别设为你刚添加的六个Action；
5：设置RichEdit.PopupMenu为你的PopupMenu1控件。
     ____     ____
     \ p \   / g /
      \ l \_/ n /
       \ a   o /
        \ i s /
         \ n /
          \_/

Answer 4

还有TWebbrowser,也有类似问题...
IE右键菜单会弹出,但使用没有效果...
选了复制,但粘贴时发现没有东西...