| Class TForm1 (unit Unit1) |
TForm
| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure DragFilesSrc1Dropping(Sender: TObject);
procedure DragFilesTrg1Drop(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
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;