如何将表单标题栏的布局更改为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;