select_dir.pas

来自「商场管理系统源码 一套值得初学者学习的源码包含全部源码,控件」· PAS 代码 · 共 50 行

unit SELECT_DIR;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FRMBASSDIALOGS, StdCtrls, FileCtrl, DsFancyButton, ExtCtrls,
  ComCtrls, MenuBar, ToolWin;

type
  TFrm_select_dir = class(TFrm_bassDialogs)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_select_dir: TFrm_select_dir;

implementation

{$R *.dfm}

procedure TFrm_select_dir.OKBtnClick(Sender: TObject);
begin
     ModalResult := mrOK;
end;

procedure TFrm_select_dir.CancelBtnClick(Sender: TObject);
begin
     ModalResult := mrCancel;   		// 返回mrCancel
end;

procedure TFrm_select_dir.FormCreate(Sender: TObject);
begin
  inherited;
   self.Caption :='选择目录';
end;

end.