Class TForm1 (unit DMTest1)

Inherits from

TForm

Constructors



Functions

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

Properties

Events

Variables

DirectoryListBox1 : TDirectoryListBox;


DiscMonitor1 : TDiscMonitor;


DriveComboBox1 : TDriveComboBox;


FileListBox1 : TFileListBox;


Memo1 : TMemo;



Constructors


Functions


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


Properties


Events


Variables


DirectoryListBox1 : TDirectoryListBox;


DiscMonitor1 : TDiscMonitor;


DriveComboBox1 : TDriveComboBox;


FileListBox1 : TFileListBox;


Memo1 : TMemo;