本文整理自网络,侵删。
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 firedac 下的 sqlite [11] - 关于批量提交 sql 命令的测试
Delphi 单击android上的web浏览器链接以启动Delphi应用程序
Delphi cxdbtreelist:最简单的节点图标添加方法
更多相关阅读请进入《Delphi》频道 >>