由于以下脚本,我可以将整个表单布局更改为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;
结果:
但是,如何仅更改表单标题栏而不更改整个表单内部的控件?
我搜索了MSDN,发现这是镜像问题。解决方法是添加WS_EX_NOINHERITLAYOUT
到Params.ExStyle
:
procedure TfrmTest.CreateParams(var Params: TCreateParams);
begin
...
Params.ExStyle := ... or WS_EX_NOINHERITLAYOUT;
end;
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句