企业管理

开发平台：

Delphi

f_SelectDir.dfm：源码内容

							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 = 94
  TextHeight = 13
  object Panel_button: TPanel
    Left = 0
    Top = 264
    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 = 264
    Align = alClient
    BevelOuter = bvNone
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 11
      Width = 45
      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''#35838#31243#35774#35745''#20010#20154#20070#31821#31649#29702#31995#32479
    end
    object Label2: TLabel
      Left = 8
      Top = 224
      Width = 56
      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

						