selezionadir.pas

来自「一套来自国外的ERP系统,有兴趣的朋友可以看看!」· 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.