Delphi 禁用TEdit右键菜单及复制粘贴

 

Delphi 禁用TEdit右键菜单及复制粘贴简的单方法如下：
1) 设置TEdit的ReadOnly属性为True
Edit1.ReadOnly := True;
2) 在TEdit的OnContextPopup中使Handled := True

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