RAD Studio VCL Reference
|
Determines the current directory for the directory list box control.
property Directory: string;
__property AnsiString Directory;
The directory list box displays the value of the Directory property as the current directory in the list box. The example shows how a directory list box and a file list box can work together through their Directory properties.
If the form contains a file list box, you can set the FileList property to have the file list box automatically display the files from the directory specified by the Directory property.
C++ Examples:
/* The following example assumes that a drive combo box, a file list box, and a directory list box are on a form. Add this code as the OnChange event handler for the drive combo box and the OnChange event handler for the directory list box. When the user changes the drive using the combo box, the directory list box and file list box will update to reflect the new drive and the current directory on that drive. When the user double clicks on a directory in the file list box will update to reflect the new directory. */ void __fastcall TForm1::DriveComboBox1Change(TObject *Sender) { DirectoryListBox1->Drive = DriveComboBox1->Drive; FileListBox1->Drive = DriveComboBox1->Drive; FileListBox1->Directory = DirectoryListBox1->Directory; } void __fastcall TForm1::DirectoryListBox1Change(TObject *Sender) { FileListBox1->Directory = DirectoryListBox1->Directory; }
Delphi Examples:
{ The following example assumes that a drive combo box, a file list box, and a directory list box are on a form. Add this code as the OnChange event handler for the drive combo box and the OnChange event handler for the directory list box. When the user changes the drive using the combo box, the directory list box and file list box will update to reflect the new drive and the current directory on that drive. When the user double clicks on a directory in the file list box will update to reflect the new directory. } procedure TForm1.DirectoryListBox1Change(Sender: TObject); begin FileListBox1.Directory := DirectoryListBox1.Directory; end; procedure TForm1.DriveComboBox1Change(Sender: TObject); begin DirectoryListBox1.Drive := DriveComboBox1.Drive; FileListBox1.Drive := DriveComboBox1.Drive; FileListBox1.Directory := DirectoryListBox1.Directory; end;
Copyright(C) 2008 CodeGear(TM). All Rights Reserved.
|
What do you think about this topic? Send feedback!
|