Class TForm1 (unit Unit1) |
Inherits from
TForm
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);
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
DragFilesSrc1 : TDragFilesSrc;
DragFilesTrg1 : TDragFilesTrg;
Edit1 : TEdit;
Label1 : TLabel;
ListView1 : TListView;
Panel1 : TPanel;
xDown : integer;
yDown : integer;
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);
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
DragFilesSrc1 : TDragFilesSrc;
DragFilesTrg1 : TDragFilesTrg;
Edit1 : TEdit;
Label1 : TLabel;
ListView1 : TListView;
Panel1 : TPanel;
xDown : integer;
yDown : integer;