Class TForm1 (unit Unit1)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);

OK, I've seen enough!

procedure Button2Click(Sender: TObject);

Add your own files to ListView by entering their names in Edit1 and then clicking this Button.

procedure Button3Click(Sender: TObject);

Toggle between Copy & Move.

procedure DragFilesSrc1Dropping(Sender: TObject);

ListView1 can accept files again.

procedure DragFilesTrg1Drop(Sender: TObject);

What to do when files are dropped on ListView.

procedure FormCreate(Sender: TObject);

NOTE: DragFilesSrc1 deals with dragging FROM listview.

procedure Label1Click(Sender: TObject);

Send me a message - 'Thanks!' , 'Something doesn't work!' etc.

procedure ListView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

set private x,y variables to detect start of drag (FROM) operation

procedure ListView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


DragFilesSrc1 : TDragFilesSrc;


DragFilesTrg1 : TDragFilesTrg;


Edit1 : TEdit;


Label1 : TLabel;


ListView1 : TListView;


Panel1 : TPanel;


xDown : integer;


yDown : integer;



Constructors


Functions


procedure Button1Click(Sender: TObject);

OK, I've seen enough!


procedure Button2Click(Sender: TObject);

Add your own files to ListView by entering their names in Edit1 and then clicking this Button. (Otherwise drag them into the ListView from Explorer.


procedure Button3Click(Sender: TObject);

Toggle between Copy & Move...


procedure DragFilesSrc1Dropping(Sender: TObject);

ListView1 can accept files again.


procedure DragFilesTrg1Drop(Sender: TObject);

What to do when files are dropped on ListView.


procedure FormCreate(Sender: TObject);

NOTE: DragFilesSrc1 deals with dragging FROM listview. DragFilesTrg1 deals with dragging TO listview. add the programme name to ListView.


procedure Label1Click(Sender: TObject);

Send me a message - 'Thanks!' , 'Something doesn't work!' etc.


procedure ListView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

set private x,y variables to detect start of drag (FROM) operation


procedure ListView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


DragFilesSrc1 : TDragFilesSrc;


DragFilesTrg1 : TDragFilesTrg;


Edit1 : TEdit;


Label1 : TLabel;


ListView1 : TListView;


Panel1 : TPanel;


xDown : integer;


yDown : integer;