| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 论坛精华贴 斑竹:liumazi,iamdream | |||||
| 作者： |
|
2004/2/22 15:33:32 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | treeview 使用的源代码 谢谢 ---------------------------------------------- 继续开发我的delphi 仍然有Java 各位加油！ |
|||||
| 作者： |
|
2004/2/22 16:15:01 | ||||
| 1楼： | DELPHI安装目录DEMOS目录下就有。 ---------------------------------------------- 维护世界和平，共创美好盒子。 |
|||||
| 作者： |
|
2004/2/22 22:27:58 | ||||
| 2楼： | 一. 如何初始化一个TreeView？ 弄一个窗口，放上一个TreeView和一个Button，分别取名为TV1和Btn1。如果需要 在每个节点前有个图，请在窗口上放上一个ImageList，取名为ImageList1，双击 它，加入六个图标。还要记得记得将TV1的Images属性改为ImageList1噢。双击按 钮Btn1，在里面填入以下代码，然后按F9运行，点击Btn1就可以看到效果了。 procedure TForm1.Btn1Click(Sender: TObject); Const MyDocDir = 'C:\My Documents'; PersonDir = '3hSoft'; Var Var I : Word; SubNodeName : array [1..5] of ShortString; RootNode, SubNode : TTreeNode; P : PString; begin SubNodeName[1] := '便笺'; SubNodeName[2] := '发件箱'; SubNodeName[3] := '联系人'; SubNodeName[4] := '任务'; SubNodeName[5] := '日记'; TV1.Items.Clear; TV1.Items.BeginUpdate; New(P); P^ := MyDocDir + '\' + PersonDir; RootNode := TV1.Items.AddObject(Nil, '个人文件夹', P); // 此 Node 的图标已对 Images 属性中取第 0 个了。 For I := 1 to 5 do begin New(P); P^ := MyDocDir + '\' + PersonDir + '\' + SubNodeName[I]; SubNode := TV1.Items.AddChildObject(RootNode, SubNodeName[I], P) ; ; // 如果不想使用图标的话请删除以下两行 SubNode.ImageIndex := I; SubNode.SelectedIndex := I; end; TV1.Items.EndUpdate; end; 二.在TreeView中如何设置选中结点 var i:integer; {i为设置的选中结点的索引值} begin if i>treeview1.items.count then treeview1.items[i].selected:=true; 或 treeview1.selected:=treeview1.items[i]; 三。设置TreeView结点的图形 1. 设置TreeView的images属性为已存在的images对象 treeview1.images:=imagelist1; 2. 在加入结点后执行： var anode:TTreeNode; begein anode:=Treeview1.add(nil,'item1'); anode.imageindex:=0; {结点未选中时显示的图标} anode.selectedindex:=1; {结点选中时显示的图标} end 3. 如果结点图形在改变后未发生变化，可以执行： treeview1.refresh; 四。如何批量处理TreeView结点 使用TreeView的items属性的BeginUpdate和EndUpdate方法，例： TreeView1.items.BeginUpdate; for i:=0 to TreeView1.items.count-1 do begin file ://将每个结点的文字改成为小写字母 TreeView1.items[i].text:=lowercase(TreeView1.items[i].text); end; TreeView1.items.EndUpdate; 五。实现TreeView结点拖拽的实例 下面的程序片段演示了如何实现拖拽treeview构件结点的例子 {鼠标按下时执行的语句} procedure TForm1.Treeview1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin {判断左键按下并且鼠标点在一个结点上开始实现拖拽} if ( Button = mbLeft ) and ( htOnItem in Treeview1.GetHitTestInfoAt( X, Y ) ) then begin Treeview1.BeginDrag( False ); end; end; {鼠标拖动执行语句} procedure TForm1.Treeview1DragOver( Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); var Node : TTreeNode; begin if Source = Treeview1 then begin Node := Treeview1.GetNodeAt( X, Y ); {取当前结点} if Node <> nil then {当前结点不为空才能实现拖拽，accept:=true} Accept := true; end; end; {鼠标释放时执行的语句} procedure TForm1.Treeview1DragDrop( Sender, Source: TObject; X, Y : Integer ); var TempNode : TTreeNode; AttachMode : TNodeAttachMode; begin if Treeview1.Selected = nil then Exit; AttachMode := naAddChild; {设置结点移动模式，设移动结点为子结点} { 注意在这里存在一个bug,当移动结点时，如果目标结点没有子结点，} { 则加入的新的子结点会失败，所以先在当前目标结点的下面 } { 加入一个临时子结点，移动完毕后，再将临时结点删除 } Treeview1.Items.BeginUpdate; try TempNode := Treeview1.Items.AddChild( Treeview1.DropTarget, 'Temp' ); try { 移动选中的结点到目标结点 } Treeview1.Selected.MoveTo( Treeview1.DropTarget, AttachMode ); finally TempNode.Free; { 不要忘了释放临时结点 } end; finally Treeview1.Items.EndUpdate; end; end; ----------------------------------------------  
|
|||||
| 作者： |
|
2004/2/22 22:28:17 | ||||
| 3楼： | 老有人问这个！ ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/24 14:26:01 | ||||
| 4楼： | DELPHI之家 网站上有 下载的。 ---------------------------------------------- 关键要开心 |
|||||
| 作者： |
|
2004/2/24 20:20:16 | ||||
| 5楼： | 都一回 事 关键看你的编程功底！
|
|||||
| 作者： |
|
2004/2/25 18:17:20 | ||||
| 6楼： | 我也要呀！ ---------------------------------------------- 愿和所有喜欢DELPHI的人成为朋友！！ |
|||||
| 作者： |
|
2004/2/25 18:51:04 | ||||
| 7楼： | Bios 真是诲人不倦！！！ 我们要高举向 Bios 学习的旗帜，把盒子工作推向新的高潮！！！ ---------------------------------------------- 我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com |
|||||
| 作者： |
|
2004/3/26 10:13:36 | ||||
| 8楼： | 正因为有了bios这样的热心人，我们的世界才变得精彩！ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/26 20:52:45 | ||||
| 9楼： | 谢谢各位 ---------------------------------------------- 继续开发我的delphi 仍然有Java 各位加油！ |
|||||
| 作者： |
|
2004/4/27 10:51:59 | ||||
| 10楼： | 收藏，谢谢 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/4/29 8:33:16 | ||||
| 11楼： | 真的非常谢谢啦！正需要！！ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/11/5 17:09:59 | ||||
| 12楼： | 各位，有好的例子就上傳啦 頂啊！ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/11/27 11:07:50 | ||||
| 13楼： | 顶一下 ---------------------------------------------- -理想是美好的，现实是残酷的； 票子是难挣的，生活是艰辛的； 爱情是坎坷的，老婆是难讨的； 天哪？！这该叫我怎么活？？？ |
|||||
| 作者： |
|
2005/2/4 17:36:38 | ||||
| 14楼： | 给！
- |
|||||
| 作者： |
|
2005/2/10 21:19:48 | ||||
| 15楼： | 简单的应用: {**********} procedure TfrmMain.GetDateTreeList; var FirstTreeNode, DirTreeNode:TTreeNode; i:Integer; FormatDate:TDateTime; FormatDateString:String; begin TreeViewMain.Items.AddFirst(nil,'LogScape'); FirstTreeNode:=TreeViewMain.Items.GetFirstNode; FirstTreeNode.SelectedIndex:=4; FirstTreeNode.ImageIndex:=4; FirstTreeNode.HasChildren:=True; for i:=0 to 31 do begin FormatDate:=DateAdd(Date(),-i-1,daDays); FormatDateString:=IntToStr(YearOf(FormatDate))+'-' +RightStr('00'+IntToStr(MonthOf(FormatDate)),2)+'-' +RightStr('00'+IntToStr(DayOf(FormatDate)),2); DirTreeNode:=TreeViewMain.Items.AddChild(FirstTreeNode,FormatDateString); DirTreeNode.SelectedIndex:=4; DirTreeNode.ImageIndex:=3; end; CurrentLogDate:=IntToStr(YearOf(DateAdd(Now(),-2,daDays)))+'-' +RightStr('00'+IntToStr(MonthOf(DateAdd(Now(),-2,daDays))),2) +'-'+RightStr('00'+IntToStr(DayOf(DateAdd(Now(),-2,daDays))),2); end;
- |
|||||
| 作者： |
|
2005/3/11 16:12:34 | ||||
| 16楼： | 不知道这么好的论坛中，有没有人建有QQ群啊，有的话请加一下我，我的QQ号为214820417 ---------------------------------------------- - |
|||||
| 作者： |
|
2005/3/14 12:29:54 | ||||
| 17楼： | 有一个群1870078一个MM建的 我是宏月，我加进去了 望各位高手进去帮一下众小弟们 ---------------------------------------------- |
|||||
| 作者： |
|
2005/3/16 10:53:36 | ||||
| 18楼： | 加油！ 现在我找了一个第三方控件！！发现也挺好的 仍然谢谢各位的无私帮忙！ ---------------------------------------------- 继续开发我的delphi 仍然有Java 各位加油！ |
|||||
| 作者： |
|
2005/11/12 19:05:52 | ||||
| 19楼： | …… 被禁用帐号，帖子内容自动屏蔽！ ……
发布广告，账号被禁用！ |
|||||
| 作者： |
|
2005/11/17 17:28:01 | ||||
| 20楼： | 自己研究巴 ---------------------------------------------- 血殇—灭倭寇！平四海！创中华大业！ 真爱—经沧桑！历波澜！终一生守候！ |
|||||
| 作者： |
|
2011/6/16 9:19:45 | ||||
| 22楼： | 充气钓鱼船 钓鱼船 钓鱼艇 皮划艇 橡皮艇 狗狗衣服 狗狗服饰 狗狗服装 幼儿故事 幼儿故事大全 儿童故事 ---------------------------------------------- - |
|||||
| 作者： |
|
2011/6/26 8:27:28 | ||||
| 23楼： | 深圳龙岗搬家公司-深圳龙岗正规搬家公司-电话 28837358 深圳龙岗搬家公司是经深圳运输局批准和工商局注册成立的一家具有独立法人资格的专业化、规模化的正规搬家公司。本公司已拥有大小不等的专用搬迁车二十八台， 自卸吊5吨至10吨、进口塔吊8吨至50吨,叉车3吨、5吨等等重型吊装、移位设备，其搬迁队、拆装工人、吊装师傅、清洁员工都是经过专业化训练，持证上岗的与公司签有正式劳动合同的优秀的有责任心的职员。他们能细致、熟练的掌握各自的专长，以过硬的技术、优质的服务、满意的质量来回报各位新老客户.公司网址 www.szhrz8.com 深圳龙岗搬家公司 深圳南山搬家公司 深圳福田搬家公司 深圳罗湖搬家公司 深圳龙华搬家公司 深圳宝安搬家公司 深圳罗湖搬家公司 深圳福田搬家公司 深圳南山搬家公司 深圳搬家公司 深圳龙岗搬家公司 深圳宝安搬家公司 深圳空调拆装 深圳空调移机 深圳空调回收 深圳盐田搬家公司 深圳旧货回收 ---------------------------------------------- 深圳龙岗搬家公司 深圳南山搬家公司 深圳福田搬家公司 深圳罗湖搬家公司 |
|||||
| 作者： |
|
2011/7/3 21:52:21 | ||||
| 24楼： | …… 被禁用帐号，帖子内容自动屏蔽！ …… ---------------------------------------------- 发布广告,禁用帐号! |
|||||
| 作者： |
|
2011/7/8 22:58:06 | ||||
| 25楼： | …… 被禁用帐号，帖子内容自动屏蔽！ …… ---------------------------------------------- 发布广告,禁用帐号! |
|||||
| 信息 |
| 登陆以后才能回复 |
