Class TForm1 (unit DMTest1) |
Inherits from
TForm
procedure DirectoryListBox1Change(Sender: TObject);
if a change to the selected directory occurs, thenupdate the monitor location
procedure DiscMonitor1Change(Sender: TObject);
when a change to the disc system is detected by the monitor then update the directory list box and the file list box
procedure FormCreate(Sender: TObject);
put the current directory into the disc monitor so that the directory and monitor are initially synchronised
DirectoryListBox1 : TDirectoryListBox;
DiscMonitor1 : TDiscMonitor;
DriveComboBox1 : TDriveComboBox;
FileListBox1 : TFileListBox;
Memo1 : TMemo;
procedure DirectoryListBox1Change(Sender: TObject);
if a change to the selected directory occurs, thenupdate the monitor location
procedure DiscMonitor1Change(Sender: TObject);
when a change to the disc system is detected by the monitor then update the directory list box and the file list box
procedure FormCreate(Sender: TObject);
put the current directory into the disc monitor so that the directory and monitor are initially synchronised
DirectoryListBox1 : TDirectoryListBox;
DiscMonitor1 : TDiscMonitor;
DriveComboBox1 : TDriveComboBox;
FileListBox1 : TFileListBox;
Memo1 : TMemo;