Delphi 11中如何通过代码将DevExpress RichEditControl页面设为横向

错误原因说明 #

DockOrientation 属性用于控制控件的停靠布局方向（比如控件在容器中横向或纵向停靠），和文档页面的横竖排版完全无关，所以你之前的代码无法实现页面横向的需求。

正确实现代码 #

要修改文档页面为横向，需要操作文档节的页面设置，并且设置后需要刷新控件以确保生效：

var
  ASection: TdxRichEditSection;
begin
  // 获取文档的第一个节（多节文档需遍历Sections集合处理）
  ASection := dxRichEditControl1.Document.Sections[0];
  // 启用横向页面
  ASection.Page.Landscape := True;
  // 刷新控件视图，使设置生效
  dxRichEditControl1.UpdateView;
end;

补充说明 #

• 若文档包含多个节，需要循环遍历dxRichEditControl1.Document.Sections，为每个节设置Landscape := True
• 仅修改Landscape属性后控件可能不会即时更新显示，必须调用UpdateView或dxRichEditControl1.Document.LayoutManager.Update来触发布局刷新

内容的提问来源于stack exchange，提问作者Mehanizm