selectfolder.pas

来自「不同数据库的转换 用delphi实现access excel sql serve」· PAS 代码 · 共 45 行

unit SelectFolder;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, RzTreeVw, RzShellCtrls;

type
  TSelectFolderfrm = class(TForm)
    FSShellTree: TRzShellTree;
    btnOK: TButton;
    btnCancel: TButton;
    lblSelfolderPrompt: TLabel;
    procedure FSShellTreeChange(Sender: TObject; Node: TTreeNode);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    PFSelectedPath: string;
  public
    { Public declarations }
    property SelectedPath: string read PFSelectedPath write PFSelectedPath;

  end;

var
  SelectFolderfrm: TSelectFolderfrm;

implementation

{$R *.dfm}

procedure TSelectFolderfrm.FSShellTreeChange(Sender: TObject;
  Node: TTreeNode);
begin
  PFSelectedPath := FSShellTree.SelectedItem.PathName;
end;

procedure TSelectFolderfrm.FormShow(Sender: TObject);
begin
  FSShellTree.SelectedPathName := PFSelectedPath;
end;

end.