消息问题，怎样屏蔽memo区域上的鼠标消息？

Question

procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  vRect: TRect;
begin
  GetWindowRect(TMemo(Sender).Handle, vRect);
  Mouse.CursorPos := Point(vRect.Left, vRect.Top);
end;

Answer 1

procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  vRect: TRect;
begin
  if not TMemo(Sender).Focused then Exit;
  GetWindowRect(TMemo(Sender).Handle, vRect);
  Mouse.CursorPos := Point(vRect.Left, vRect.Top);
end;