RAD Studio VCL Reference
|
Provides a simple way to connect a directory list box with a file list box.
property FileList: TFileListBox;
__property TFileListBox FileList;
Use FileList to specify a file list box in which to display the files of the current directory.
C++ Examples:
/* This example uses a file list box, a directory list box, a filter combo box, a drive combo box, a label, an edit box, and a button on a form. When the user runs the application and enters a path or filename in the edit box and presses the button, all the controls update: */ void __fastcall TForm1::FormCreate(TObject *Sender) { FileListBox1->FileEdit = Edit1; FilterComboBox1->FileList = FileListBox1; DirectoryListBox1->FileList = FileListBox1; DirectoryListBox1->DirLabel = Label1; DriveComboBox1->DirList = DirectoryListBox1; Button1->Default = true; } void __fastcall TForm1::Button1Click(TObject *Sender) { FileListBox1->ApplyFilePath(Edit1->Text); }
/* This example shows how to use a splitter to divide a form into resizable panes. All objects on the form are created dynamically in the OnCreate event handler of the form. To run this example, add ExtCtrls and FileCtrl to the uses clause of the form’s implementation section. Note that when creating a splitter dynamically at runtime, it is important to set its position to the appropriate side of the control it will resize. */ #include <Extctrls.hpp> #include <Filectrl.hpp> void __fastcall TForm1::FormCreate(TObject *Sender) { TSplitter* ps = new TSplitter(Form1); TFileListBox* pflb = new TFileListBox(Form1); TDirectoryListBox* pdlb = new TDirectoryListBox(Form1); // Line up the directory list box on the left of the form. pdlb->Parent = Form1; pdlb->Align = alLeft; pdlb->Width = Form1->ClientWidth/3; // Now use the splitter to divide the directory pane from the file pane. ps->Parent = Form1; ps->Left = pdlb->Left + pdlb->Width + 1; // Move to right of directory list. ps->Align = pdlb->Align; // Give same alignment as directory list. // Each pane must be at least one quarter of the form's width. ps->MinSize = Form1->ClientWidth/4; // Finally, create the last pane - a file list box. pflb->Parent = Form1; pflb->Align = alClient; pdlb->FileList = pflb; // Link the file list box to the directory list box. }
Delphi Examples:
{ This example uses a file list box, a directory list box, a filter combo box, a drive combo box, a label, an edit box, and a button on a form. When the user runs the application and enters a path or filename in the edit box and presses the button, all the controls update: } procedure TForm1.Button1Click(Sender: TObject); begin FileListBox1.ApplyFilePath(Edit1.Text); end; procedure TForm1.FormCreate(Sender: TObject); begin FileListBox1.FileEdit := Edit1; FilterComboBox1.FileList := FileListBox1; DirectoryListBox1.FileList := FileListBox1; DirectoryListBox1.DirLabel := Label1; DriveComboBox1.DirList := DirectoryListBox1; Button1.Default := True; end;
{ This example shows how to use a splitter to divide a form into resizable panes. All objects on the form are created dynamically in the OnCreate event handler of the form. To run this example, add ExtCtrls and FileCtrl to the uses clause of the form’s implementation section. Note that when creating a splitter dynamically at runtime, it is important to set its position to the appropriate side of the control it will resize. } procedure TForm1.FormCreate(Sender: TObject); var Split: TSplitter; Files: TFileListBox; Dirs: TDirectoryListBox; begin { first add a directory list box to the form } Dirs := TDirectoryListBox.Create(Form1); { line it up on the left of the form } Dirs.Parent := Form1; Dirs.Align := alLeft; Dirs.Width := Form1.ClientWidth div 3; { now add the splitter to divide the directory pane from the file pane } Split := TSplitter.Create(Form1); Split.Parent := Form1; { make sure the splitter is to the right of the directory list box! } Split.Left := Dirs.Left + Dirs.Width + 1; Split.Align := Dirs.Align; { give it the same alignment as the directory } { each pane must be at least one quarter of the form’s width } Split.MinSize := Form1.ClientWidth div 4; { Finally, create the last pane – a file list box } Files := TFileListBox.Create(Form1); Files.Parent := Form1; Files.Align := alClient; Dirs.FileList := Files; { link the file list box to the directory list box } end;
Copyright(C) 2008 CodeGear(TM). All Rights Reserved.
|
What do you think about this topic? Send feedback!
|