} } }

    Delphi 资料经管器套件

    添加时间:2013-7-8 点击量:


    须要个类似资料经管器的器材， 起首试了下 TDriveComboBox、TDirectoryListBox、TFileListBox， 嘿! Win3.1 时代的器材， 不是一般地丑.



    试了下 Vcl.Shell.ShellCtrls 下的 TShellComboBox、TShellTreeView、TShellListView， 很是合意! 并且 TShellComboBox 也可以免掉了.




    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.
    彼此相爱，却不要让爱成了束缚：不如让它成为涌动的大海，两岸乃是你们的灵魂。互斟满杯，却不要同饮一杯。相赠面包，却不要共食一个。一起歌舞欢喜，却依然各自独立，相互交心，却不是让对方收藏。因为唯有生命之手，方能收容你们的心。站在一起却不要过于靠近。—— 纪伯伦《先知》
    分享到：