如何屏蔽鼠标右键？

Question

  因为老是有人粘贴密码以及非法字符串！

Answer 1

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

Answer 2

啊。，还不够详细？！那你这样写吧：private  procedure MouseRightMessage(var Msg: TMsg; var Handled: Boolean);...procedure TForm1.MouseRightMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if (Msg.Message = WM_RBUTTONDOWN) and (Msg.hwnd = Edit1.Handle) then
  begin
    Handled := True;
  end;
end; procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := MouseRightMessage;
end;

Answer 3

这个一个消息队列。除了 jackie168(花好月圓) 上面说的来代码,还要在Oncreate事件中加于:
   
            application.onmessage:=ApplicationEvents1Message;
就可以了.  handled是挂起                                             是不是还有其它好的方法啊