Delphi-Quellcode:
procedure TreeviewFullyExpand(tv: TTreeview);
var
Node : TTreeNode;
IsExp : boolean;
begin
Assert(Assigned(tv));
if tv.Items.Count > 0 then
begin
Node := tv.Items[0];
while Assigned(Node) do
begin
IsExp := Node.Expanded or not Node.HasChildren;
if IsExp = false then Node.Expanded = true;
Node := Node.GetNext;
end; {While}
end {If}
end;
Das ist jetzt natürlich mit der
VCL-Version.
Vielleicht kann man dies Übertragen..
// Martin