selectdirunit.dfm

从网页上下载图片的程序

object SelectDir: TSelectDir
  Left = 322
  Top = 250
  Width = 379
  Height = 349
  BorderIcons = [biSystemMenu]
  Caption = #36873#25321#36335#24452
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PanelBkGnd: TPanel
    Left = 0
    Top = 0
    Width = 371
    Height = 273
    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 = 'E:\'#20889#20070'\'#31243#24207'\'#23567#21306#29289#19994#31649#29702
    end
    object Label2: TLabel
      Left = 8
      Top = 224
      Width = 56
      Height = 13
      Caption = #36335#24452#21517#65306
    end
    object DirectoryListBox1: TDirectoryListBox
      Left = 8
      Top = 40
      Width = 348
      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
  object Panel_button: TPanel
    Left = 0
    Top = 273
    Width = 371
    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
end