How to disable copy/paste in TEdit

Question

I would like to prevent copy, cut and paste in my TEdit. How can I do this?

I tried setting the Key=NULL on KeyDown event when CTRL+V was pressed on the control, but it didn't work.

http://stackoverflow.com/questions/10158861/how-to-intercept-detect-a-paste-command-into-a-tmemo — Escape Velocity, Sep 27 '16 at 11:02

score 5 · Answer 1 · answered Aug 11 '14 at 17:14

5

Assign this to TEdit.OnKeyPress :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if (Key=#22) or (Key=#3) then Key:=#0;   // 22 = [Ctrl+V] / 3 = [Ctrl+C]
end;

answered Aug 11 '14 at 17:14

Marus Gradinaru

2,824
1
26
55

1

Unfortunately, this doesn't work when the user clicks the right mouse button and selects Paste. – Escape Velocity Sep 27 '16 at 11:00

score 5 · Accepted Answer · edited May 23 '17 at 10:29

5

You'll need to prevent the WM_CUT, WM_COPY, and WM_PASTE messages from being sent to your TEdit. This answer describes how do to this using just the Windows API. For the VCL, it may be sufficient to subclass TEdit and change its DefWndProc property or override its WndProc method.

edited May 23 '17 at 10:29

Community

1
1

answered May 08 '09 at 15:10

Josh Kelley

56,064
19
146
246

score 2 · Answer 3 · answered Jan 29 '13 at 18:10

I know this is an old question but I'll add what I have found. The original poster almost had the solution. It works fine if you ignore cut/copy/paste in the key press event instead of the key down event. ie (c++ builder)

void __fastcall Form::OnKeyPress(TObject *Sender, System::WideChar &Key)
{
   if( Key==0x03/*ctrl-c*/ || Key==0x16/*ctrl-v*/ || Key==0x018/*ctrl-x*/ )
      Key = 0;  //ignore key press
}

score 0 · Answer 4 · answered Jan 18 '17 at 11:44

0

Uses Clipbrd;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  Clipboard.AsText := '';
end;

answered Jan 18 '17 at 11:44

FZS

160
1
2
14

score 0 · Answer 5 · answered Jun 12 '21 at 14:21

An old question, but the same bad answers are still floating around.

unit LockEdit;

// Version of TEdit with a property CBLocked that prevents copying, pasting,
// and cutting when the property is set.

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, StdCtrls, Windows;

type

  TLockEdit = class(TEdit)
  protected
      procedure WndProc(var msg: TMessage); override;
  private
      FLocked: boolean;
  public
      property CBLocked: boolean read FLocked write FLocked default false;
  end;

implementation

  procedure TLockEdit.WndProc(Var msg: TMessage);
  begin
  if ((msg.msg = WM_PASTE) or (msg.msg = WM_COPY) or (msg.msg = WM_CUT))
      and CBLocked
          then msg.msg:=WM_NULL;
  inherited;
  end;

end.

score 0 · Answer 6 · answered May 08 '09 at 15:10

0

You can use some global programs that grab shortcuts and block C-V C-C C-X when TEdit window is active

answered May 08 '09 at 15:10

Łukasz Lew

48,526
41
139
208

How to disable copy/paste in TEdit

6 Answers6