ufrmseldir.pas

提取网页文件图片地址,应用此工具

unit UfrmSelDir;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  StdCtrls,  Buttons, frmmain,U_pub, SUIComboBox, SUIButton;

type
  TFrmSelDir = class(TForm)
    Label1: TLabel;
    BtnOK: TsuiButton;
    BtnGet: TsuiButton;
    edt_folder: TsuiComboBox;
    suiButton1: TsuiButton;
    procedure FormCreate(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure BtnOKClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BtnGetClick(Sender: TObject);
  private
      IfCancel:boolean;
      function ChackDir:boolean;
    { Private declarations }
  public
    //procedure ReadHisteryDir(DirLst:Tstrings);
    { Public declarations }
  end;

var
  FrmSelDir: TFrmSelDir;

implementation

{$R *.dfm}

procedure TFrmSelDir.FormCreate(Sender: TObject);
begin
 Edt_Folder.Items.Assign(form1.histeryDir);
 IfCancel := true;
end;



procedure TFrmSelDir.suiButton1Click(Sender: TObject);
begin
  edt_folder.Text  := GetFolder(0, '选择目录');
end;

function TFrmSelDir.ChackDir: boolean;
begin

    result := InspectDirName(Edt_Folder.Text );
end;

procedure TFrmSelDir.BtnOKClick(Sender: TObject);
begin
  if not ChackDir then
    ErrorDlg('目录名非法,请重新检查！','提示')
   else
     begin
      edt_folder.Text := AddDirSuffix(edt_folder.Text);
      form1.AddNewDir(Edt_Folder.Text ); 
     end
end;

procedure TFrmSelDir.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
     if not IfCancel then
     begin
       self.BtnOKClick(self); 
     end
     else
      CanClose := true;

end;

procedure TFrmSelDir.BtnGetClick(Sender: TObject);
begin
  IfCancel := true;
end;

end.