unit2.pas

来自「全文检索 快速搜寻一般文字档」· PAS 代码 · 共 64 行

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DirectoryListBox1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation


{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
var pdir: string;
begin
  pdir := DirectoryListBox1.Directory;
  Main.ComboBox2.Text := pdir;
  Close;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  Close;
end;



procedure TForm2.DirectoryListBox1Click(Sender: TObject);
begin
  DirectoryListBox1.OpenCurrent;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  if Main.ComboBox2.Text <> '' then
  try
    DirectoryListBox1.Directory := Main.ComboBox2.Text;
  finally
  end;
end;

end.