|
|
|
| dcFolderListView component.
|
| procedure Back;
|
| Use Back method to pass to up-level folder (under that folder which currently specified in Folder property).
|
| procedure TForm1.UpBtnClick(Sender: TObject);
|
| begin
|
| dcFolderListView1.Back;
|
| end;
|
|
|
| procedure TForm1.dcFolderListView1FolderChanged(Sender: TObject;
|
| Folder: String);
|
| begin
|
| UpBtn.Enabled := dcFolderListView1.IsBackPossible;
|
| dcFolderEdit1.Text := Folder;
|
| end;
|
| IsBackPossible method and Folder property.
|