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

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

[delphi] view plaincopy

1. procedure TFrmReport.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;  
2.   var Handled: Boolean);  
3. begin  
4.   Handled := True;  
5. end;