Inherits from
TForm
procedure BrowseDialog1SelectionChanged(Sender: TObject; Wnd: Integer;
Path: string; var ShowText: string; var OKButtonState: TOKButtonState);
procedure Button1Click(Sender: TObject);
procedure SetFilesToList(CurDir: string);
Private 錾
BrowseDialog1 : TBrowseDialog;
Button1 : TButton;
Edit1 : TEdit;
FileList : TListView;
IconList : TImageList;
Label1 : TLabel;
Panel1 : TPanel;
procedure BrowseDialog1SelectionChanged(Sender: TObject; Wnd: Integer;
Path: string; var ShowText: string; var OKButtonState: TOKButtonState);
procedure Button1Click(Sender: TObject);
procedure SetFilesToList(CurDir: string);
Private 錾
BrowseDialog1 : TBrowseDialog;
Button1 : TButton;
Edit1 : TEdit;
FileList : TListView;
IconList : TImageList;
Label1 : TLabel;
Panel1 : TPanel;