f_selectdir.dfm

ERP成本管理系统DELPHI ERP成本核算系统常常要设计含有如下车间

object SelectDir: TSelectDir
  Left = 258
  Top = 96
  Width = 365
  Height = 339
  Caption = #36873#25321#36335#24452
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel_button: TPanel
    Left = 0
    Top = 263
    Width = 357
    Height = 49
    Align = alBottom
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 0
    object Bevel_button: TBevel
      Left = 7
      Top = 1
      Width = 356
      Height = 2
    end
    object BitBtn1: TBitBtn
      Left = 88
      Top = 8
      Width = 75
      Height = 25
      Caption = #30830#23450'[&O]'
      ModalResult = 1
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 192
      Top = 8
      Width = 75
      Height = 25
      Caption = #21462#28040'[&C]'
      TabOrder = 1
      OnClick = BitBtn2Click
    end
  end
  object PanelBkGnd: TPanel
    Left = 0
    Top = 0
    Width = 357
    Height = 263
    Align = alClient
    BevelOuter = bvNone
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 11
      Width = 39
      Height = 13
      Caption = #39537#21160#22120':'
    end
    object Label3: TLabel
      Left = 8
      Top = 241
      Width = 338
      Height = 12
      AutoSize = False
      Caption = 'C:\...\fywdn1\'#26700#38754'\ERP'#25104#26412#31649#29702#31995#32479#27605#19994#35774#35745
    end
    object Label2: TLabel
      Left = 8
      Top = 224
      Width = 48
      Height = 13
      Caption = #36335#24452#21517#65306
    end
    object DirectoryListBox1: TDirectoryListBox
      Left = 0
      Top = 40
      Width = 356
      Height = 177
      DirLabel = Label3
      ItemHeight = 16
      TabOrder = 0
    end
    object DriveComboBox1: TDriveComboBox
      Left = 72
      Top = 8
      Width = 284
      Height = 19
      DirList = DirectoryListBox1
      TabOrder = 1
      TextCase = tcUpperCase
    end
  end
end