![]() |
![]() ![]() ![]() |
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.
|