The Delphi Explorer Suite

Recommended for you: Get network issues from WhatsUp Gold. Not end users.

Need a similar resource management for things, first tried TDriveComboBox, TDirectoryListBox, TFileListBox, hey! Win31 era things, not ugly.

The next test under Vcl.Shell.ShellCtrls, TShellComboBox, TShellTreeView, TShellListView, very satisfied! And TShellComboBox can also be avoided.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.FileCtrl, Vcl.StdCtrls,
  Vcl.ComCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure TreeViewOnChange(Sender: TObject; Node: TTreeNode);
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Vcl.Shell.ShellCtrls;

var
  C: TShellComboBox;
  T: TShellTreeView;
  L: TShellListView;

procedure TForm1.FormCreate(Sender: TObject);
begin
  C := TShellComboBox.Create(Self);
  T := TShellTreeView.Create(Self);
  L := TShellListView.Create(Self);

  C.Parent := Self;
  T.Parent := Self;
  L.Parent := Self;
  T.Width := Screen.Width div 4;

  C.Align := alTop;
  T.Align := alLeft;
  L.Align := alClient;

  T.ShellComboBox := C;
  L.ShellTreeView := T;

  L.ViewStyle := vsList;

  T.OnChange := TreeViewOnChange;
end;

procedure TForm1.TreeViewOnChange(Sender: TObject; Node: TTreeNode);
begin
  Caption := T.SelectedFolder.PathName;
end;

end.
Recommended from our users: Dynamic Network Monitoring from WhatsUp Gold from IPSwitch. Free Download

Posted by Berton at December 06, 2013 - 6:11 AM