[Delphi]屏蔽鼠标右键，屏蔽键盘 (转发的)

屏蔽鼠标右键：
edtWo: TEdit;
procedure   MouseRightMessage(var   Msg:   TMsg;   var   Handled:   Boolean);

Procedure TformMain.FormCreate(Sender: TObject);
Begin
         Application.OnMessage:=MouseRightMessage;
End;

procedure   TformMain.MouseRightMessage(var   Msg:   TMsg;   var   Handled:   Boolean);
begin
      if   (Msg.Message   =   WM_RBUTTONDOWN)   and   (Msg.hwnd   =   edtWo.Handle)   then
      begin
          Handled   :=   True;
      end;
end;

屏蔽键盘：
（1）
Procedure OnMyMessage(var   Msg:TMsg;var   Handled : Boolean);
Procedure TformMain.FormCreate(Sender: TObject);
Begin
        Application.OnMessage   :=   OnMyMessage;
End;
procedure   TformMain.OnMyMessage(var   Msg:   TMsg;   var   Handled:   Boolean);
begin
      case   Msg.message   of
             WM_KEYUP,WM_KEYDOWN:
             Handled   :=   true;
      end;
end;

（2）
在keypress中 key:=#0屏蔽键盘输入；