ListView往TreView里面拖拽

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

标签：des style blog http color strong io for

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里面拖拽

标签：des style blog http color strong io for

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

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行