Class TForm1 (unit FindForm)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);


procedure FileFinderFileFound(Sender: TObject; Directory: string; SearchRec: TSearchRec; var Stop: Boolean);


procedure FileFinderStop(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


Properties

Events

Variables

Button1 : TButton;


FileFinder : TFileFinder;


Label1 : TLabel;


Label2 : TLabel;


ListBox1 : TListBox;


Panel1 : TPanel;


txtFilename : TEdit;



Constructors


Functions


procedure Button1Click(Sender: TObject);


procedure FileFinderFileFound(Sender: TObject; Directory: string; SearchRec: TSearchRec; var Stop: Boolean);


procedure FileFinderStop(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


Properties


Events


Variables


Button1 : TButton;


FileFinder : TFileFinder;


Label1 : TLabel;


Label2 : TLabel;


ListBox1 : TListBox;


Panel1 : TPanel;


txtFilename : TEdit;