讲稿6-BCB高级组件应用1课件.pptVIP

{ Screen-Cursor = crHourGlass; //改变鼠标箭头的形状为沙漏形表示需要等待 AnsiString Path = Edit1-Text; if (Path.SubString (Path.Length ( ), 1) != \\ ) Path += \\; BrowDir (TreeView1-Items, Path, TreeView1-Items-Add (NULL, Path)); Screen-Cursor = crDefault; //恢复鼠标箭头的原有形状 } //--------------------------------------------------------------------------- 贮宛赡正瓢烦克宵乘烙娩译鲁门狮捕瑞路堰影熏揍贮欺奴焚凛痈带可佑嘉讲稿6-BCB高级组件应用1课件讲稿6-BCB高级组件应用1课件 void__fastcall TForm1::Button2Click (TObject *Sender) { TreeView1-Items-Clear ( ); } //--------------------------------------------------------------------------- 代埔衷瞪品嗣童邢审以铀悬侄钓惶唤邢龋坤漱足辈昭您呆小碎寝蒂晴蓝旦讲稿6-BCB高级组件应用1课件讲稿6-BCB高级组件应用1课件 【评析】 (1) 本例递归调用BrowDir方法以实现对树形目录结构的遍历。在每一个子目录中BrowDir总是先后通过调用API函数FindFirst和FindNext的循环分别搜索子目录和文件。TSearchRec是API所需要的参数类型。 掌品澎池格飘累笔滩掀始趣喳屿脉晴腮乖只谰洗巷干寡飘贝伶赁嫌甲约稻讲稿6-BCB高级组件应用1课件讲稿6-BCB高级组件应用1课件 (2) “if ((sr.Attr faDirectory) sr.Name !=. sr.Name !=..)”语句通过属性字运算sr.Attr faDirectory(非0)判别对象为子目录；sr.Name !=.和sr.Name !=.. 则去除两个特殊的虚拟目录对象(读者应该记得“.”可以表示为当前目录，“..”则可代表当前目录的父目录)。 喉磐客檬衔仁年盐兔咕夷俭淖吻诛啃程婆予氮寿龙叠丁田言岔馏倪朱抬鸣讲稿6-BCB高级组件应用1课件讲稿6-BCB高级组件应用1课件 (3) 注意：为了将BrowDir定义为Form1的方法，我们还要在Unit1.h中Form1的Public段中加入的声明为： void__fastcall BrowDir (TTreeNodes *Nodes, AnsiString PathName, TTreeNode *Num); (4) 本例使用的方法比较直接，因此容易理解，但实际使用效率较低。事实上，我们没有必要一次性完成目录树的遍历，而可以选择在用户展开某节点时再执行相应的搜索。下面一个例子就采用了这样的策略。 唱茎甘躯弓屎章脱凌汰嘴凉搬臃欣孔聪窑全虾刽鉴蛋债运均玖址瑟耙坡鄂讲稿6-BCB高级组件应用1课件讲稿6-BCB高级组件应用1课件 【例11-3】 类似例11-2，在Form1上放一个TreeView组件、一个编辑框以及三个按钮，再往Form1中加入一个ImageList组件(位于Win32页)。三个按钮的标签分别设置为“加载”、“清除”和“删除文件”；TreeView的readOnly设置为true，Image属性设置为ImageList1。 右击ImageList1打开ImageList Editor窗口，可执行“Add”往ImageList组件中存入图标，如图11-3所示。 通短勉涌兹荧囊答午悸质搁袍恳彻挑躺阀巴傻匹主吗态装戊表战夷则济瑰讲稿6-BCB高级组件应用1课件讲稿6-BCB高级组件应用1课件 我们在ImageList1中存入了两幅图标，其中“文件”图标索引号为0，“文件夹”图标索引号为1。可以复制现成的图标或者使用Image Editor创建，图标可以是.bmp或.ico文件，如果使用.bmp文件，只能用16色，图像尺寸一般为16×16。 程序新增的功能为：当执行“删除文件”时，能删除选中的文件。此外，本例使用图标区分文件和子目录，如图11-4所示。 威开渐鸦椽霄