Delphi 实现TreeView结点拖拽的实例(转)
2010-09-16 21:03
Delphi 实现TreeView结点拖拽的实例
2010-06-04 11:15
下面的程序片段演示了如何实现拖拽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;
详情地址:
|
DELPHI中利用TreeView控件建立目录树
2010-06-09 15:54
关于TreeView的使用,还可以参看:联合使用TreeView 组件
TreeView是一个显示树型结构的控件,通过它能够方便地管理和显示具有层次结构的信息,是Windows应用程序的基本控件之一。DELPHI虽然具有比较强大的文件管理功能,提供了多个用于文件管理的标准控件,如DriveComboBox、DirectoryListBox、FileListBox等,通过设置它们的属性,使其建立起联系,甚至不用编写一行程序,我们就可以实现在不同的目录之间进行切换,然而这样的目录切换只适用于进行文件的查找定位,而不能方便地进行目录的浏览,例如我们要从c:\windows目录转到c:\program files目录,就必须返回到根目录才能进行切换,而不能象Windows资源管理器那样任意地在不同的目录之间进行浏览与切换。
要实现在不同目录之间任意切换和浏览,还是需要使用TreeView控件,以下程序就利用DELPHI的TreeView控件来建立目录树。
在该程序中采用的各部件以及界面设计如下图所示:
各部件的主要属性设置如下:
部件 | 属性 | 属性值 | form | name caption | form1 ‘目录浏览’ | drivecommbobox | name visible | drivecommbobox1 false | filelistbox | name visible filetype | filelistbox1 false fddirectory | imagelist | name | imagelist1 | treeview | name images |
该程序利用DriveCommboBox控件来获得系统具有的驱动器,并以此作为目录树的最上层,利用FileListBox控件,通过设置其Filetype属性为fdDirectory,可以获得所需的子目录,在TreeView控件的OnExpanding事件中将得到的子目录加到该控件的某一节点下。
整个程序的源代码如下:
unit main;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, FileCtrl, ComCtrls, ImgList;
type
TForm1 = class(TForm) DirTreeView: TTreeView; FileListBox1: TFileListBox; DriveComboBox1: TDriveComboBox; ImageList1: TImageList; procedure FormCreate(Sender: TObject); procedure DirTreeViewExpanding(Sender: TObject; Node: TTreeNode;var AllowExpansion: Boolean); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation {$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject); var FirstNode,DirNode : TTreeNode; ItemCount,Index:integer; Itemstr:string; begin ItemCount:= DriveComboBox1.Items.Count; //所有驱动器的个数 FirstNode := DirTreeView.Items.GetFirstNode; for index := 0 to ItemCount -1 do begin ItemStr:= DriveComboBox1.Items[index]; ItemStr:= copy(ItemStr,1,pos(:,ItemStr)) ; //获得驱动器的名称(比如C/D) DirNode := DirTreeView.Items.AddChild(FirstNode, ItemStr ); DirNode.HasChildren := true; DirNode.ImageIndex := 0; DirNode.SelectedIndex := 1; end; end;
//响应扩展事件 procedure TForm1.DirTreeViewExpanding(Sender: TObject; Node: TTreeNode;Var AllowExpansion: Boolean); var DirNode : TTreeNode; ItemCount,Index,level,icount:integer; Itemstr,strPath:string; begin if node.Count = 0 then begin icount:=0; level:=node.Level ; dirnode:=node; strPath:=node.Text+\ ; while level 0 do begin strPath:=dirnode.Parent.Text+\+strpath; dirnode:=dirnode.parent; level :=level -1; end;
FileListBox1.Clear ; FileListBox1.Directory := strpath; ItemCount:= FileListBox1.Items.Count;
for index:=0 to ItemCount -1 do begin itemstr:=filelistbox1.items[index]; itemstr:= copy(ItemStr,2,pos(],ItemStr)-2) ; if (itemstr〈〉.) and (itemstr 〈〉 ..) then begin DirNode := DirTreeView.Items.AddChild(Node,itemstr ); DirNode.HasChildren :=true; DirNode.ImageIndex := 0; DirNode.SelectedIndex := 1; icount:=icount+1; end;
if icount = 0 then Node.HasChildren := false; end; end; end; end.
![](https://i-blog.csdnimg.cn/blog_migrate/fa3b8ca00bf58b6f0c09d8675c7da506.gif) 程序的运行效果如图所示:我们可以展开目录树中的任何一个节点,并且可以在任意节点之间切换,就象我们在Windows资源管理器中所作的那样,而不需要逐级回退之后才能进行切换。
|
|