Class TForm1 (unit Ffmain)

Inherits from

TForm

Constructors



Functions

procedure CheckBox1Click(Sender: TObject);


procedure CloseClick(Sender: TObject);


procedure Edit1Change(Sender: TObject);


procedure FileFind1ChangeDirectory(Sender: TObject; NewDirectory: TFileName);


procedure FileFind1ChangeDrive(Sender: TObject; NewDrive: Char);

ListBox1.

procedure FileFind1Match(Sender: TObject);


procedure FileFind1Stop(Sender: TObject; var CanStop: Boolean);


procedure FormActivate(Sender: TObject);


procedure RadioGroup1Click(Sender: TObject);

Try minimize when searching.

procedure StartClick(Sender: TObject);


procedure StopClick(Sender: TObject);

restore controls

Properties

Events

Variables

CheckBox1 : TCheckBox;


Close : TButton;


Edit1 : TEdit;


FileFind1 : TFileFind;


Label1 : TLabel;


ListBox1 : TListBox;


RadioGroup1 : TRadioGroup;


Start : TButton;


Stop : TButton;


Total : TLabel;


Count : Integer;

Private declarations


Constructors


Functions


procedure CheckBox1Click(Sender: TObject);


procedure CloseClick(Sender: TObject);


procedure Edit1Change(Sender: TObject);


procedure FileFind1ChangeDirectory(Sender: TObject; NewDirectory: TFileName);


procedure FileFind1ChangeDrive(Sender: TObject; NewDrive: Char);

ListBox1.ItemIndex := ListBox1.Items.Count-1;


procedure FileFind1Match(Sender: TObject);


procedure FileFind1Stop(Sender: TObject; var CanStop: Boolean);


procedure FormActivate(Sender: TObject);


procedure RadioGroup1Click(Sender: TObject);

Try minimize when searching...


procedure StartClick(Sender: TObject);


procedure StopClick(Sender: TObject);

restore controls


Properties


Events


Variables


CheckBox1 : TCheckBox;


Close : TButton;


Edit1 : TEdit;


FileFind1 : TFileFind;


Label1 : TLabel;


ListBox1 : TListBox;


RadioGroup1 : TRadioGroup;


Start : TButton;


Stop : TButton;


Total : TLabel;


Count : Integer;

Private declarations