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 图像翻转

Delphi 如何从html格式的字符串中提取纯文本？

Delphi 一个不错的枚举进程例子

Delphi压缩库 zlibex 介绍

Delphi中创建json字符串

Delphi 程序启动后隐藏窗体和任务栏

Delphi 在tmemo中查找文本

Delphi模仿“千千静听”滚动标题栏，非常简单！

Delphi 如何获取窗口的图标

Delphi版插apc杀进程驱动源码

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

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