编写 OnAfterGetMaxColumnWidth
事件处理程序,并在那里增加 MaxWidth
参数。我没有找到能够完成这个任务的属性。
procedure VirtualStringTreeAfterGetMaxColumnWidth(Sender: TVTHeader;
Column: TColumnIndex; var MaxWidth: Integer);
begin
MaxWidth := MaxWidth + VirtualStringTree.TextMargin;
end;