说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

我想用treeview,它和outline有什么区别?谁有treeview的例子?

编辑:说三道四文库 发布时间:2017-12-14 02:47
HTML文档下载 WORD文档下载 PDF文档下载
我想用treeview,它和outline有什么区别?谁有treeview的例子?谢谢!
分已用的差不多拉!请各位原谅!
var
  node: TTreenode;
begin
  node := treeview1.add(nil,'父1');
  treeview1.addChild(node,'子1');
  node := treeview2.add(nil,'父2');
  node := treeview3.addChild(node,'子2');
  treeview3.addChild(node,'子3');
end;
procedure DirToTreeView(ATreeView: TTreeView; ADirectory: string;
  ARoot: TTreeNode; AIncludeFiles: Boolean);
var
  SearchRec : TSearchRec;
  ItemTemp : TTreeNode;
begin
  with ATreeView.Items do
  try
    BeginUpdate;
    if ADirectory[Length(ADirectory)] <> '\' then
      ADirectory := ADirectory +'\';
    if FindFirst(ADirectory + '*.*', faDirectory, SearchRec) = 0 then
    begin
      repeat
      if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] <> '.') then
      begin
        if (SearchRec.Attr and faDirectory > 0) then
          ARoot := AddChild(ARoot, SearchRec.Name);
        ItemTemp := ARoot.Parent;
        DirToTreeView(ATreeView, ADirectory + SearchRec.Name, ARoot, AIncludeFiles);
        ARoot := ItemTemp;
      end
      else if AIncludeFiles then
        if SearchRec.Name[1] <> '.' then
          AddChild(ARoot, SearchRec.Name);
      until FindNext(SearchRec) <> 0;
      FindClose(SearchRec);
    end;
  finally
    EndUpdate;
  end;
end;
日本DeNA进军中国智能电视,与海信战略合作 扎克伯格不仅为Poke编码,而且还“献声” Wordament:首款支持Xbox Live成就的iPhone游戏 使用Storm实现实时大数据分析! 孙博凯:微软日益开放,Windows Azure更加拥抱开源 大数据计算:如何仅用1.5KB内存计算十亿个不同的对象 我们为什么爱EC2和S3却彻底抛弃EBS 不畏Surface:诺基亚明年或推Windows平板 Linus Torvalds:用户程序被破坏永远是Kernel的问题! Python高效编程技巧 苹果加速硬件迭代 iPad5原型机曝光 宏碁推99美金平板 价格创历史新低 黑莓10全键盘版代号N系列,谍照泄露! 那些年我们用过的互联网产品 QQ亿级业务演变:从文件、音视频说起 少年企鹅的成长之旅:QQ体验设计发展史 全球超算Top 500:Linux已占93.8%,Windows或将消失 AWS东部地区再次发生宕机 Netflix等网站受影响 2012年全球最美的十个数据中心 CodeCards:程序员电子贺卡DIY项目 微软首席战略官Craig Mundie将于2014年退休 LG明年CES展新款智能电视 增强自然语言识别 微软包嘉峰:企业用户向Windows 8迁移加速 2013年10个科技预测 三维打印技术将成主流 能省电99.96%:微软开发基于云的GPS技术 十个最有用的云数据库 开源产品系列:企业级Web框架web2py 让针对Webkit优化的网站兼容WP8 IE10 CMDN Club 24期:互联网产品的演进之路——从QQ谈互联网14年进化史 360安全浏览器发布“照妖镜”和“网站名片”功能 Windows Server 2012实用教程:添加Hyper-V管理器 哪儿有BCB6 开发数据库的书和例子啊? %%%%%%%%%%%%%%%%%%求一段简单得SQL语句%%%%%%%%%%%%%%%%%% 如何把2000/XP下自帶的游戲完全刪除.. 求e书下载 谁写过ORACLE的OLE对象的分页程序??给点代码参考一下。 精彩不容错过 求助!!!忘各位大侠指点,小弟先谢了! 要想拖动层,该如何实现,急急!! 可以在服务器上创建一个以上的WEB站点吗? 菜鳥求助﹐在線等待﹗請進﹗ 愛因斯坦與牛頓的貓貓游戲 关于Tmessage的一个问题,有兴趣的请…… 传递指针的问题 float到底能保留几位小数? 关于前途的杂谈---选择C程序员还是JAVA程序员? 2003打开2002的报表,显示时特别慢 Dialog中的wm_char 怎样重新组合字符串 第二次提问 着急呀 如何读取空字段不出错 愚蠢的问题——请各位大哥指导 数据库版本冲突问题,各位不防进来看看啊! 查找一个区间的记录 有没有在vc6.0下用vc.net控件的方法呀? 怎么做细线呀? 请问各位高手,怎么叛断面面关闭!!! 很多的程序员平朋友们对档案和户口问题都不是很清楚吗,我就我所知的来说说,希望对大家有用 【delphi三(两)层结构如何调用oracle中的存储过程(参数含游标)】 有DX能翻译下面的代码吗? access中sql语句 insert into table1(id) values(1);insert into table1(id) values(1);通不过?? 文件拷贝 请问华康字体库,哪儿有下载? 关于sametime无法登录的问题! 精彩不容错过 怎么样上传文件 请问,如果利用pc机,实现和璇铃声于彩色图片的下载,应该怎么做? **sql语句的问题** 求救!!!!!熟悉数据库加密的高手请进!!! DELPHI为什么会自动退出? 帮帮忙,新手求问 用java怎样判断一个Email地址是真实存在的?(救命呀!~~~>_<~~~) C++BUILDER调用VC++DLL内函数问题? dephi+oracle 从TMemo存读varchar2类型数据(一篇文章) 数据超过256个字节 其中有换行符 在solaris中如何用命令行改变IP地址,并且永久生效。 mysql中的备注字段应该是什么英文,我英文不好。我只知道int, char. 怎么样知道在另外一台机器上运行的程序是否死掉了,另外一台机器是否死机? 请问怎样修改、删除、追加XML中子项的值? showdialog 打开的 form 怎么返回值? 我是学计算机的,都大四了,外语四级还没有过.不知道对以后找工作有多大影响? 在lotus中一般打印用什么方法??给分!!!急!!! 建议post时增加贴图功能. 为有暗香来的上句是什么 如受孕15天做B超能看出孕囊吗?在6月11日发生的性生活,6月26日做了B超孕囊7*8*8mm.还是之前就已经怀孕了我想知道如果受孕的那天就是6月11日,在26号阴超是否能做出,总共相隔15天,月经末次是5月 为有暗香来上句 为有暗香来的上一句 为有暗香来的上句 一()琴,用什么量词合适 关于明确目标的排比句关于明确目标的排比句字数60字以上 不要复制的 B超测出孕囊至少受精多少天 同房受孕后多久B超能看到孕囊,21天看的到吗 受孕多久B超能看见孕囊注意,是受孕,也就是精子和卵子着床后,B超最快多久能看见孕囊,问的不是从末次月经算起的我指的受孕是精子和卵子的着床之后才算受孕.我是医学上说的那种从末次月 "为有暗香来"的上一句 日本女高中生为何讨厌自己的爸爸?美国有意叫停窃听盟国元首 部门“内讧奥巴马提名两名竞选支持者为美国驻外大叙利亚总统巴沙尔再颁大赦令金华男子貌若金城武 3个姑娘心甘情愿第13届中国网络媒体论坛在郑州举行 雪糕也有怪味 日本北之雪糕屋华人油画家潘义奎:艺术家应心怀美好美国华人要求美电视台就播出“杀光中国AKB48将于2014年举行乐曲总选中国与苏联老兵在京见面 促进中俄世代金妍儿心系尼泊尔大地震 为受灾儿童捐原标题:美国巴尔的摩骚乱暂平息 公立纽约华裔新生遭兄弟会殴打致死 家属提外媒:英大选进入冲刺 经济降温或“打拿破仑遭放逐小岛将建机场迎游客:暂无6名匪徒绑架富家女勒索2800万 两约1550名日本人滞留尼泊尔 大部分朝鲜大力推动体育大学建设 以培养优秀中国东莞企业积极拓展柬埔寨市场有色金属行业一季度利润增8.8% 电沙特在建会议中心坍塌 已致至少11人谢家皇后江浪传奇贴身兵皇皇极至尊三国之凉人崛起黑道传奇穿越之养儿不易重生之我要做女神重生之骄兰天字嫡一号升斗之妇路矿工人运动纪念馆旅游聂耳文化广场旅游龙王山旅游望儿山旅游观海寺旅游钱江潮旅游大连女骑警基地旅游鹤鸣楼旅游黄炎培故居旅游川沙古城墙旅游泸源崖旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘