delphi – TreeView的ScrollBar在镜像时不接受VCL主题

发布时间：2020-12-15 09:32:48 所属栏目：大数据来源：网络整理

导读：使用此代码镜像Treeview时,TTreeView的ScrollBar不接受VCL主题： procedure SetWinControlBiDi(Control: TWinControl);const WS_EX_NOINHERITLAYOUT = $00100000; WS_EX_LAYOUTRTL = $00400000;var ExStyle: Longint;begin ExStyle := GetWindowLong(Control

使用此代码镜像Treeview时,TTreeView的ScrollBar不接受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;

示例图片：

enter image description here

我该怎么办？

请帮助我…

解决方法

这是TScrollingStyleHook样式钩子中的一个问题,您应该将此报告给Embarcadero.同时您可以使用 Vcl Styles Utils项目来解决此问题.

只需按照安装说明操作,然后将Vcl.Styles.Hooks单元添加到项目中.

enter image description here

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!