Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by scp,
14. Nov 2003
Na, dann so in etwa:
procedure AssignChildren(Source, Dest : TTreeNode);
var
subtn : TTreeNode;
i : integer;
begin
Dest.DeleteChildren;
for i := 0 to (Source.Count-1) do
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by scp,
14. Nov 2003
TreeView2.items.Assign(TreeView1.Items);
If Assigned(TreeView1.Images) then
TreeView2.Images := TreeView1.Images;
If Assigned(TreeView1.StateImages) then
TreeView2.StateImages :=TreeView1.StateImages;