动态TREEVIEW的建立?

Question

procedure TForm1.FormCreate(Sender: TObject);
var
  vStringStream: TStringStream;
begin
  vStringStream := TStringStream.Create(
'亚洲'#13#10 +
#9'中国'#13#10 +
#9#9'北京'#13#10 +
#9#9'上海'#13#10 +
#9'日本'#13#10 +
#9#9'东京'#13#10 +
#9'韩国'#13#10 +
'欧洲'#13#10 +
#9'法国'#13#10 +
#9'意大利'#13#10
  );
  with TTreeView.Create(Self) do try
    Parent := Self;
    LoadFromStream(vStringStream);
  finally
    vStringStream.Free;
  end;
end;

Answer 1

不是的,我的意思是TREE有用户的建立,

Answer 2

zswang(伴水)说的对，你可试一下。