首页 > 代码库 > TreeView节点拖拉操作1

TreeView节点拖拉操作1

2024-07-14 17:54:45   220人阅读

 
TreeView节点拖拉操作1
//事先设置 TreeView1.DragMode= dmAutomatic;
 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    procedure TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm} 
//var
//      node:TTreeNode;
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin 
//   node := TreeView1.GetNodeAt(X, Y);
//    Caption:=node.Text;


    Accept := Source = Sender;
    if not Accept then exit;
end;

procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  with TreeView1 do 
  begin
    if (Sender <> Source)  then   exit;
    if (DropTarget = nil)   then   exit;
    if (DropTarget = Selected) then   exit;
    Selected.MoveTo(DropTarget,naAddChildFirst);
  end;
end;


end.
 
 
 
 
  TNodeState = (nsCut, nsDropHilited, nsFocused, nsSelected, nsExpanded);
  TNodeAttachMode = (naAdd, naAddFirst, naAddChild, naAddChildFirst, naInsert);
  TAddMode = (taAddFirst, taAdd, taInsert);
 
拖拽时可以看见拖拽的图标如果有的话


来自为知笔记(Wiz)


附件列表

     


    联系
    我们