请问怎么禁止Tedit控件中的复制,粘贴功能啊,在线等

Question

请问怎么禁止Tedit控件中的复制,粘贴功能啊,在线等

Answer 1

procedure TForm1.Edit1ContextPopup(
   Sender: TObject;
   MousePos: TPoint;
   var Handled: Boolean) ;
begin
   Handled := True;
end;

Answer 2

procedure TForm1.Edit1ContextPopup(
   Sender: TObject;
   MousePos: TPoint;
   var Handled: Boolean) ;
begin
   Handled := True;
end;呵呵,这个方法在哪里加进去啊

Answer 3

在EDIT的事件里面 ONContextPopup(第3个事件)

Answer 4

拦掉TEdit的WM_COPY和WM_PASTE消息

Answer 5

http://www.msf8.com/htm_data/42/0607/14646.html

Answer 6

对不起,是我理解错了.
应该是:TNewEdit = class(TEdit)
  protected
    procedure WndProc(var Message: TMessage); override;
  end;
{ TNewEdit }procedure TNewEdit.WndProc(var Message: TMessage);
begin
  case Message.Msg of
  WM_Copy, WM_Paste, WM_Cut: Exit;
  end;
  inherited;
end;

Answer 7

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    OldWndProc: TWndMethod;
    procedure EditWndProc(var Message: TMessage);
  public
    { Public declarations }
    
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  OldWndProc := Edit1.WindowProc;
  Edit1.WindowProc := EditWndProc;
end;procedure TForm1.EditWndProc(var Message: TMessage);
begin
  if (Message.Msg = WM_PASTE) or (Message.Msg = WM_COPY) or (Message.Msg = WM_CUT) then Exit;
  OldWndProc(Message);
end;

Answer 8

TNewEdit = class(TEdit)
  protected
    procedure WndProc(var Message: TMessage); override;
  end;
{ TNewEdit }procedure TNewEdit.WndProc(var Message: TMessage);
begin
  case Message.Msg of
  WM_Copy, WM_Paste, WM_Cut: Exit;
  end;
  inherited;
end;