虚拟树视图将垂直滚动条放置在右侧的RightToLeft双向模式中

Question

是否可以将虚拟树视图的垂直滚动条放在RightToLeft双向模式的右侧，并将其放在LeftToRight模式的左侧？

Answer 1

为什么不呢？如果TVirtualTreeView使用系统滚动条，则可以通过设置适当的扩展样式来完成。

procedure TForm1.Button2Click(Sender: TObject);
const
LSB = WS_EX_LEFTSCROLLBAR;
var
ExStyle: LONG_PTR;
begin
ExStyle := GetWindowLongPtr(AVTV.Handle, GWL_EXSTYLE);
// Check if RTL alignment specified for you component
if AVTV.BiDiMode = bdRightToLeft then
begin
// If so, then exclude LSB-constant and allow Windows place 
// scrollbar on the right side of window
if (ExStyle and LSB) = LSB then
SetWindowLongPtr(AVTV.Handle, GWL_EXSTYLE, ExStyle and not LSB);
end
else
if AVTV.BiDiMode = bdLeftToRight then
begin
// The same as operation above but for LTR order
if (ExStyle and LSB) <> LSB then
SetWindowLongPtr(AVTV.Handle, GWL_EXSTYLE, ExStyle or LSB);
end;
end;

LSB常量用于使代码在post中更加紧凑

另请参见

• GetWindowLongPtrA函数
• SetWindowLongPtrA函数
• 扩展窗口样式