ListView往TreView里面拖拽

时间：2014-07-29 21:38:12 阅读：422 评论：0 收藏：0 [点我收藏+]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    ListView1: TListView;
    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}

procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := False;
  if (source is TTreeView) or (source is TListView) then
    Accept := True;
end;

procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  tSrcNode, tDesNode: TTreeNode;
begin
  tDesNode := TTreeView(Sender).GetNodeAt(X, Y);
  if Source is TTreeView then
  begin
    tSrcNode := TTreeView(Sender).Selected;
    tSrcNode.MoveTo(tDesNode, naAddChild);
  end;

  if Source is TListView then
  begin
    TreeView1.Items.AddChild(tDesNode, ListView1.Selected.Caption);
    ListView1.Selected.Delete;
    TreeView1.Selected.Expand(True);
  end;
end;

end.

来自为知笔记(Wiz)

附件列表

ListView往TreView里面拖拽,布布扣,bubuko.com

ListView往TreView里面拖拽

原文：http://www.cnblogs.com/xe2011/p/3876268.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年09月23日 (328)
2021年09月24日 (313)
2021年09月17日 (191)
2021年09月15日 (369)
2021年09月16日 (411)
2021年09月13日 (439)
2021年09月11日 (398)
2021年09月12日 (393)
2021年09月10日 (160)
2021年09月08日 (222)