Disable Copy&Cut&paste

type
  TEdit = class(StdCtrls.TEdit)
    procedure WndProc(var Message: TMessage); override;
  end;
  TForm1 = class(TForm)
    edt1: TEdit;
    procedure edt1ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Tedit.WndProc(var message: TMessage);
begin                                             //禁止键盘复制剪切粘帖
  if (Message.Msg = wm_copy)
    or (message.Msg = wm_cut)
    or (Message.Msg = wm_paste) then
    Exit;
  inherited
end;

procedure TForm1.edt1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  handled := true;                                  //禁止右键菜单
end;