VirtualTreeView

[Bigmichi]

Code:

procedure TfrmToDoList.FormCreate(Sender: TObject);
begin
  P:=TMVCPanel.Create(Self);
  with P do
    begin
      Parent:=Self;
      Align:=alClient;
      TreeView.Images:=ImageList1;

      FTree:=CreateDefaultTree;
      Tree:=FTree;
      P.TreeView.OnChange:=TreeViewChange;
      P.TreeView.OnDBlClick:=cmdEinstClick;

      P.TreeView.FullExpand(NIL);
      UpdateFromNode;
    end;
end;


function TfrmToDoList.CreateDefaultTree:TMVCTree;
begin
  Result:=TMVCTree.Create;
    with Result.Root.CreateChild do
      begin
        Caption:='Erstellen der To-Do-Liste';
        SubCaption:='BigMichi';
        Incidence:=85;
      end;
end;

das klappt auch ser gut nur wenn ich nun nachträglich versuche mit "P.Tree.Root.CreateChild;" was anzuhängen wird es zwar beigefügt aber nie in der Liste angezeigt