seldir.pas

超级播放器 -- 软件特点 -- 功能齐全 操作简便 绿色环保

unit Seldir;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, ComCtrls, ShellCtrls, Menus;

type
  TFrmSelDir = class(TForm)
    OkBtn: TBitBtn;
    CancelBtn: TBitBtn;
    CheckBox1: TCheckBox;
    Dirlist: TShellTreeView;
    Edit1: TEdit;
    PopupMenu1: TPopupMenu;
    Bevel1: TBevel;
    procedure DirlistChange(Sender: TObject; Node: TTreeNode);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DirlistEditing(Sender: TObject; Node: TTreeNode;
      var AllowEdit: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
    SelectPath:string;
    IncludeallSubDir:boolean;
  end;

var
  FrmSelDir: TFrmSelDir;

implementation

{$R *.dfm}

procedure TFrmSelDir.DirlistChange(Sender: TObject;
  Node: TTreeNode);
begin
   if DirectoryExists(Dirlist.path) then
   begin
     OkBtn.Enabled :=true;
     Edit1.Text :=Dirlist.Path;
   end
   else
   begin
     OkBtn.Enabled :=False;
     Edit1.text :='';
   end;
end;

procedure TFrmSelDir.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if ModalResult =mrok then
  begin
    SelectPath:=dirlist.Path;
    IncludeallSubDir:=checkbox1.Checked ;
  end;
end;

procedure TFrmSelDir.DirlistEditing(Sender: TObject; Node: TTreeNode;
  var AllowEdit: Boolean);
begin
  allowEdit :=false;
end;

end.