This can be used, together with other components in the Samples palette, to show directories. In this example a SheelTreeView component has been placed on the left part of a form with a DirectoryOutline on the right and a Splitter in between:
With the help of the properties and methods provided we can change the display of the DirectoryOutline in response to the ShellTreeView:
Here are some sample procedures to show howthe DirectoryOutline can be updated from the ShellTreeView:
procedure TForm1.ShellTreeView1Change(Sender: TObject;
Node: TTreeNode);
begin
DirectoryOutline1.Directory:=ShellTreeView1.Path;
end;
This changes the display in the DirectoryOutline to the drive of the ShellTreeView but does not change it.
procedure TForm1.ShellTreeView1Expanding(Sender:
TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
begin
DirectoryOutline1.Directory:=ShellTreeView1.Path;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
DirectoryOutline1.Drive:='C';
end;
This provides some of the functionality of 'My Computer' or Windows Explorer, should these be otherwise unavailable when a program is running.