如何屏蔽EDIT上的右键

Question

我做一个EDIT框 并设置成了密码框  我想彻底屏蔽右键功能 怎么做

Answer 1

做一个什么也没有的菜单作为这个 EDIT 的快捷菜单

Answer 2

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
   if Msg.message = WM_RBUTTONDOWN  then
 begin
    Handled:=  True;
 end;
end;

Answer 3

ApplicationEvents1Message 是哪个事件   在EVENT里面找不到

Answer 4

ApplicationEvents1Message 是哪个事件   在EVENT里面找不到

Answer 5

放一个空的TPopupMeun，
把TEdit的PopupMenu指向这个PopupMenu楼主抠门才10分，大家自然没热情。

Answer 6

to sunjunfeng3(这个世界分两种人,懂二进制的和不懂的) :
  在Addtional页中找到ApplicationEvent组件，就可以写OnMessage代码了

Answer 7

pazee(耙子)(今年过年不收礼，收礼只收尿不湿) 
说得很对

Answer 8

pplicationEvents1Message是API消息。
这样做整个 窗体的右击事件都没了。
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
   if Msg.message = WM_RBUTTONDOWN  then
 begin
    Handled:=  True;
 end;
end;
还是做个空菜单跟它关联来得简单。