selezionadir.pas

来自「大型企业管理源码,JAVA类,包括销售,采购,财务,OA辅助办公处理,有学习JA」· PAS 代码 · 共 57 行

unit selezionadir;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  FileCtrl, StdCtrls, Buttons;

type
  TSeleziona_directory = class(TForm)
    DirectoryBox: TDirectoryListBox;
    DriveComboBox1: TDriveComboBox;
    Label1: TLabel;
    Label2: TLabel;
    percorso: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    FileListBox1: TFileListBox;
    Label4: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
    Function Execute : boolean ;
    Function Path : String ;
  end;

var
  Seleziona_directory: TSeleziona_directory;
  percorso_dir : string ;

implementation

{$R *.DFM}

Function Tseleziona_Directory.Execute : boolean ;
begin
 self.ShowModal  ;
 if self.ModalResult = mrOk then
  begin
   percorso_dir := percorso.caption ;
   result := true ;
  end
 else
  begin
   percorso_dir := '' ;
   result := False ;
  end ;
end ;

Function TSeleziona_Directory.Path : string ;
begin
 result := Percorso.caption ;
end ;

end.