如何将表单标题栏的布局更改为 RTL？

Question

感谢以下脚本，我可以将整个表单布局更改为 RTL。

procedure TfrmTest.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
    Params.ExStyle := WS_EX_LEFT or WS_EX_LTRREADING or WS_EX_LEFTSCROLLBAR
     or WS_EX_LAYOUTRTL;
    {WS_EX_LEFT to set the text caption to the right,
    use WS_EX_RIGHT to set the caption to the left}
end;

结果：

但是如何只更改表单标题栏而不是表单内的整个控件？

Answer 1

我搜索了 MSDN，发现这是一个镜像问题。 它通过将WS_EX_NOINHERITLAYOUT添加到Params.ExStyle来解决：

procedure TfrmTest.CreateParams(var Params: TCreateParams);
begin
  ... 
  Params.ExStyle := ... or WS_EX_NOINHERITLAYOUT;
end;