| Class TForm1 (unit Ffmain) |
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);
procedure FileFind1Match(Sender: TObject);
procedure FileFind1Stop(Sender: TObject; var CanStop: Boolean);
procedure FormActivate(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure StartClick(Sender: TObject);
procedure StopClick(Sender: TObject);| 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;| 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