TTreeView 的
ScrollBar 在通过以下代码镜像 Treeview 时不接受 VCL 主题:
procedure SetWinControlBiDi(Control: TWinControl);
const
WS_EX_NOINHERITLAYOUT = $00100000;
WS_EX_LAYOUTRTL = $00400000;
var
ExStyle: Longint;
begin
ExStyle := GetWindowLong(Control.Handle, GWL_EXSTYLE);
SetWindowLong(Control.Handle, GWL_EXSTYLE, ExStyle or WS_EX_RTLREADING or WS_EX_RIGHT
or WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT );
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
SetWinControlBiDi(TreeView1);
end;
示例图片:
我该怎么办?
请帮助我...
最佳答案
这是 TScrollingStyleHook
样式 Hook 中的问题,您应该将此问题报告给 Embarcadero。同时您可以使用Vcl Styles Utils
项目来解决这个问题。
只需按照安装说明进行操作,然后将 Vcl.Styles.Hooks
单元添加到您的项目中即可。
关于delphi - TreeView的ScrollBar镜像时不接受VCL主题,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/32333475/