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中TEdit控件的右键菜单及复制粘贴功能。首先将TEdit的ReadOnly属性设置为True, 然后在TEdit的OnContextPopup事件中将Handled设为True即可实现。
307

被折叠的 条评论
为什么被折叠?



