当我的鼠标在编辑框上(如EDIT)上点击右键盘,就会出现一个右键菜单,有什么复制啊,粘贴等等的,我想知道如何让这个菜单不显示。急!! 一个土办法就是放一个TPopupMenu,不要增加任何菜单项目,然后设置TEdit的PopupMenu属性为这个PopupMenu 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 放一个menu菜单控件再将EDIT.popupmenu指向PopupMenu1 或者往窗体上放一个TApplicationEvents,在它的OnMessage事件中写如下代码:procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);begin if (Msg.message = WM_RBUTTONDOWN) and (Msg.hwnd = Edit1.Handle) then Handled := True else inherited;end; 放一个menu菜单控件复制,张贴,自己加代码了 请看:如此倒分...哈哈哈哈! IdTcpServer的exectue事件是线程安全的吗? 各位高手帮我看看我的程序,帮我调一下啊,很急很急哦!!!! 一个简单的数据库查询问题! ListView排序的问题 delphi中的unit名字怎么改??? 软件公司比较集中的大厦在什莫位置? 控件问题 如何用DLL做资源文件?例如把用到的图片放如DLL里,用到时从中调用! 关于下载的程序不能运行的问题及说明 在D6中,1、如何计算本周是今年的第几周!2、如何计算今天是今年的第几天? 我用ADOConnection连接ACCESS每次运行问什么都要数据库密码?
再将EDIT.popupmenu指向PopupMenu1
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = WM_RBUTTONDOWN) and (Msg.hwnd = Edit1.Handle) then
Handled := True
else
inherited;
end;
复制,张贴,自己加代码了