Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.221.53.209] |
|
Сообщ.
#1
,
|
|
|
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ComCtrls; type TForm1 = class(TForm) TreeView1: TTreeView; procedure TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer); procedure TreeView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); private procedure MoveNode(TargetNode, SourceNode: TTreeNode); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.MoveNode(TargetNode, SourceNode: TTreeNode); var NodeTmp: TTreeNode; I: Integer; begin with TreeView1 do begin // проверяем, является ли целевой элемент предком перетаскиваемого NodeTmp := TargetNode.Parent; while Assigned(NodeTmp) do if NodeTmp = SourceNode then Abort else NodeTmp := NodeTmp.Parent; // копируем перетаскиваемый элемент в новосозданный NodeTmp := Items.AddChild(TargetNode, SourceNode.Text); NodeTmp.Data := SourceNode.Data; for I := 0 to SourceNode.Count - 1 do MoveNode(NodeTmp, SourceNode.Item[I]); Selected := NodeTmp; TopItem := NodeTmp.getPrev; TargetNode.Expand(True); end; end; procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer); var TargetNode, SourceNode: TTreeNode; begin with TreeView1 do begin TargetNode := GetNodeAt(X, Y); SourceNode := Selected; if (TargetNode = SourceNode) or (TargetNode = nil) then begin EndDrag(False); Exit; end; MoveNode(TargetNode, SourceNode); SourceNode.Free; end; end; procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); var SourceNode, TargetNode, NodeTmp: TTreeNode; begin if Sender = TreeView1 then try // скроллинг дерева при перетаскивании if Y > TreeView1.Height - 10 then begin TreeView1.TopItem := TreeView1.TopItem.getNext; Sleep(100); // пауза end else if Y < 10 then begin TreeView1.TopItem := TreeView1.TopItem.getPrev; Sleep(100); // пауза end; TargetNode := TreeView1.GetNodeAt(X, Y); SourceNode := TreeView1.Selected; if (TargetNode = nil) or (TargetNode = SourceNode) then Abort; Accept := True; // проверяем, является ли целевой элемент предком перетаскиваемого NodeTmp := TargetNode.Parent; while Assigned(NodeTmp) do if NodeTmp = SourceNode then Abort else NodeTmp := NodeTmp.Parent; except Accept := False; end; end; end. |