delphi禁止TEdit, TMemo右键上下文弹出菜单

本文整理自网络，侵删。

 delphi禁止TEdit, TMemo右键上下文弹出菜单

procedure TForm1.Edit1ContextPopup(Sender: TObject;MousePos: TPoint;var Handled: Boolean) ;
begin
//disable default context popup
Handled := True;
end;

 

相关阅读 >>

Delphi bytestofile

Delphi base24编码解码

Delphi httpclient async异步获取网页代码

Delphi 处理图片(剪切，压缩)

Delphi指针和字符串

Delphi只获取文件名（不带扩展名）

Delphi 双击dbgrid然后得到字段里面的内容

Delphi 利用datasnap进行数据流(tstream)的传递

Delphi 获取随机字符串的方法 thash.getrandomstring

Delphi下遍历文件夹下所有文件的递归算法

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

转载请注明出处：木庄网络博客 » delphi禁止TEdit, TMemo右键上下文弹出菜单