Virtual Treeview - Header Width dem Text anpassen

[schuetze09]

Hallo,

die Header Infos in meinen VirtualTreeview lade ich über ein SQL, die Daten für die Treeview ebenso.
Leider wieß ich nicht, wie ich den Header anpassen kann.

So hole ich mir den Header:

Delphi-Quellcode:

      with VST.Header do
      begin
        for i:=0 to FieldDefList.Count -1 do
        begin
          Columns.Add;
          Columns[i].Text := FieldDefList[i].Name;
          Feldliste.Add(FieldDefList[i].Name);
        end;
      end;

das Problem bei der Sache ist, ich weiß nie, wieviel Header-Spalten ich brauche und was in diesen dann steht, da sich das Select im Query ändern kann.

MfG
schuetze09