| Class TSelectFileDlg (unit Filedlg) |
TForm
----- File: FILEDLG.PAS for Project CODEAPP.DPR -----
| Constructors |
| Functions |
procedure CancelBtnClick(Sender: TObject);
procedure DirectoryListBox1Change(Sender: TObject);
procedure DriveComboBox1Change(Sender: TObject);
procedure Edit1Click(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure FileListBox1Change(Sender: TObject);
procedure FileListBox1DblClick(Sender: TObject);
procedure FileListBox1KeyPress(Sender: TObject; var Key: Char);
procedure FileListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure HelpBtnClick(Sender: TObject);
procedure OKBtnClick(Sender: TObject);
function HaveFileName: boolean;file selection filter
| Properties |
| Events |
| Variables |
CancelBtn : TBitBtn;
DirectoryListBox1 : TDirectoryListBox;
DriveComboBox1 : TDriveComboBox;
Edit1 : TComboBox;
FileInfo : TLabel;
FileListBox1 : TFileListBox;
FilterComboBox1 : TFilterComboBox;
GroupBox1 : TGroupBox;
HelpBtn : TBitBtn;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
OKBtn : TBitBtn;
FilePath : string;
FileSpec : string;
FileTypes : string;| Constructors |
| Functions |
procedure CancelBtnClick(Sender: TObject);
procedure DirectoryListBox1Change(Sender: TObject);
procedure DriveComboBox1Change(Sender: TObject);
procedure Edit1Click(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);-Make file list match Directory list
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure FileListBox1Change(Sender: TObject);
procedure FileListBox1DblClick(Sender: TObject);
procedure FileListBox1KeyPress(Sender: TObject; var Key: Char);
procedure FileListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormActivate(Sender: TObject);-Give user a clue or two
procedure FormCreate(Sender: TObject);-Show # of files in list
procedure HelpBtnClick(Sender: TObject);
procedure OKBtnClick(Sender: TObject);-Select a file from list
function HaveFileName: boolean;Private declarations
file selection filter
| Properties |
| Events |
| Variables |
CancelBtn : TBitBtn;
DirectoryListBox1 : TDirectoryListBox;
DriveComboBox1 : TDriveComboBox;
Edit1 : TComboBox;
FileInfo : TLabel;
FileListBox1 : TFileListBox;
FilterComboBox1 : TFilterComboBox;
GroupBox1 : TGroupBox;
HelpBtn : TBitBtn;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
OKBtn : TBitBtn;
FilePath : string;the chosen file /w path
FileSpec : string;Public declarations
FileTypes : string;