如何屏蔽掉鼠标移动消息？

Question

type
  TForm1 = class(TForm)
  public
      procedure MyProcedure(var Msg:TWMMouseMove);message WM_MouseMove;
  end;
....procedure TForm1.MyProcedure(var Msg: TWMMouseMove);
begin
  Canvas.Pixels[Msg.XPos,Msg.YPos]:=ClBlack;
  //type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
      procedure MyProcedure(var Msg:TWMMouseMove);message WM_MouseMove;
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}{ TForm1 }procedure TForm1.MyProcedure(var Msg: TWMMouseMove);
begin
Canvas.Pixels[Msg.XPos,Msg.YPos]:=ClBlack
//处理MouseMove事件
end;

Answer 1

不好意思，上面贴错了
type
  TForm1 = class(TForm)
  public
      procedure MyProcedure(var Msg:TWMMouseMove);message WM_MouseMove;
  end;
....procedure TForm1.MyProcedure(var Msg: TWMMouseMove);
begin
  Canvas.Pixels[Msg.XPos,Msg.YPos]:=ClBlack;
//处理MouseMove事件
end;

Answer 2

不知这样行不行：type
  TForm1 = class(TForm)
  public
      procedure YouProcedure(var Msg:TMessage);message WM_MouseMove;
  ....procedure TForm1.YouProcedure(var Msg: TMessage);
begin
  Msg.Result := 1;
end;