Disable Copy&Cut&paste

最新推荐文章于 2024-08-29 15:47:10 发布

seagull327

最新推荐文章于 2024-08-29 15:47:10 发布

阅读量727

点赞数

分类专栏：控件 Api 函数&过程

本文链接：https://blog.csdn.net/haiou327/article/details/8440771

版权

函数&过程同时被 3 个专栏收录

39 篇文章 0 订阅

订阅专栏

Api

30 篇文章 0 订阅

订阅专栏

控件

20 篇文章 0 订阅

订阅专栏

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;