主页 > 编程资料 > Delphi >
发布时间:2015-09-22 作者:网络 阅读:171次

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;

关键字词: