递归法选取树子节点 + 控件拖放

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

递归法选取树子节点 + 控件拖放

适合N层树,通用

unit treeRecursion;

{

标题: 递归法选取树子节点 + 控件拖放

作者: vigor

时间: 2004.3.26

}

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls, ComCtrls, ExtCtrls;

type

TForm1 = class(TForm)

TreeView1: TTreeView;

ListBox1: TListBox;

Splitter1: TSplitter;

procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;

State: TDragState; var Accept: Boolean);

procedure ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

procedure AddSelectedChildrenToListbox(tree : TTreeView;startNode :TTreeNode;listBox :TListBox);

end;

var

Form1: TForm1;

g_startNode : TTreeNode;

implementation

{$R *.dfm}

{

拖放控件

准备条件:

源控件 DragKind :=dkDrag; DragCursor :=crDefalt; DragMode := dmManual;

目标控件

实施步骤:

1. 开始拖动操作 onMouseDown BeginDrag ( 源控件 )

2. 接收拖动项目 OnDragOver (目标控件)

3. 放下拖动项目 OnDragDrop (目标控件)

4. 终止拖动操作 OnEndDrag ( 源控件 )

}

procedure TForm1.AddSelectedChildrenToListbox(tree: TTreeView;

startNode: TTreeNode; listBox: TListBox);

var

curParent : TTreeNode;

begin

if not(tree.Selected.HasChildren) then

begin

if listBox.Items.IndexOf(Trim(tree.Selected.Text)) = -1 then

listBox.Items.Add(Trim(tree.Selected.Text));

end

else

begin

tree.Selected := tree.Selected.GetNext;

while tree.Selected<>nil do

begin

curParent := tree.Selected;//保护现场^^

AddSelectedChildrenToListbox(tree,tree.Selected,listBox);

tree.Selected := curParent.getNextSibling;//恢复现场^^

end;

end;

end;

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if Button = mbLeft then

begin

g_startNode := TreeView1.GetNodeAt(X,Y);

if Assigned(g_startNode) then

TreeView1.BeginDrag(True);

end;

end;

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;

State: TDragState; var Accept: Boolean);

begin

if Source = TreeView1 then

Accept := True;

end;

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);

begin

if Source = TreeView1 then

begin

AddSelectedChildrenToListbox(treeview1,g_startNode,listbox1);

end;

end;

end.

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航