Delphi 리소스 매니저 키트

자원 관리자와 비슷한 것이 필요합니다. 우선 TDrive Combo Box, TDirectory List Box, TFile List Box를 시험해 봤습니다. 끽!Win31시대의 물건은 보통 못생긴 것이 아니다.
Vcl를 해봤어요.Shell.Shell Ctrls 아래의 TShell ComboBox, TShell TreeView, TShell ListView, 매우 만족합니다!그리고 TShell ComboBox도 면제할 수 있습니다.

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.