Treeview immer expanded

[MisterNiceGuy]

Hi, gibt's bei der Standard-Treeview-Komponente eine Möglichkeit alle Nodes immer zu expanden?
Oder ein collapsen garnicht erst zuzulassen?

Vielen Dank für eure Antwort :)

Edit
Antwort schon bekommen, ich lösche nicht, weil es eventuell auch andere interessieren könnte.
Einfach ins OnCollapsing folgendes schreiben:

Delphi-Quellcode:

procedure TForm1.TreeView1Collapsing(Sender: TObject; Node: TTreeNode;
  var AllowCollapse: Boolean);
begin
  allowCollapse := false;
end;