procedure TOptionfrm.AutoWidth(dxTreeList: TdxTreeList);
var
i: integer;
str: string;
node: TdxTreelistnode;
label ok;
begin
for i := 0 to dxTreeList.ColumnCount - 1 do
begin
str := dxTreeList.Columns[i].Caption;
node := dxTreeList.TopNode;
while true do
begin
if length(str) < length(node.Strings[i]) then
str := node.Strings[i];
if node.HasChildren then
node := node.GetFirstChild
else
begin
while node.IsLast do
if node.Level = 0 then
goto ok
else
node := node.Parent;
node := node.GetNextSibling;
end;
end;
ok:dxtreelist1.Columns[i].Width := length(str) *8;// dxtreelist1.Columns[i].Font.Size;
end;
end;
（出处：www.delphibbs.com）