procedure TForm1.WndProc(var Message: TMessage);
begin
  with Message do
  begin
    if (Msg = WM_Move) then
    begin
      if LParamLo > Screen.Width then  ///LParamLo 为消息获得的当前的窗体左边界
      begin
        Msg := WM_NULL;
      end;
    end;
  end;
  
  inherited;
end;为什么我这样写了,还是没有起作用