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;
 

相关阅读 >>

Delphi edgebrowser1 浏览器实现控制滚动条

Delphi 获取unixtime

Delphi 熊猫烧香核心源码

Delphi　病毒

Delphi tms web core webhttprequest1 解析json

Delphi idhttp1 获取网页代码

Delphi sysutils.comparestr、sysutils.comparetext - 字符串比较

Delphi gb2312 编码转义url字符串

Delphi 随机指定范围的字符串函数

Delphi rs232c接脚与对连线

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 禁用TEdit右键菜单及复制粘贴