dirdlgu.~dfm

来自「Ondemand是IBM公司开发的报表管理系统,广泛使用于金融、保险、电信等大型」· ~DFM 代码 · 共 84 行

object Dir4: TDir4
  Left = 382
  Top = 180
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  BorderWidth = 2
  Caption = #36873#25321#30446#24405
  ClientHeight = 283
  ClientWidth = 440
  Color = clSkyBlue
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #26032#23435#20307
  Font.Style = [fsBold]
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 440
    Height = 249
    Align = alTop
    BevelInner = bvLowered
    BevelWidth = 2
    Caption = 'Panel1'
    Color = clSkyBlue
    TabOrder = 0
    object Panel2: TPanel
      Left = 4
      Top = 4
      Width = 432
      Height = 23
      Align = alTop
      AutoSize = True
      BevelWidth = 2
      Caption = 'Panel2'
      Color = clSkyBlue
      TabOrder = 0
      object DriveComboBox1: TDriveComboBox
        Left = 0
        Top = 2
        Width = 433
        Height = 19
        BevelKind = bkFlat
        Color = clCream
        DirList = DirectoryListBox1
        TabOrder = 0
      end
    end
    object DirectoryListBox1: TDirectoryListBox
      Left = 4
      Top = 27
      Width = 432
      Height = 218
      Align = alClient
      BevelKind = bkFlat
      Color = clCream
      ItemHeight = 16
      TabOrder = 1
    end
  end
  object Button1: TButton
    Left = 64
    Top = 256
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 288
    Top = 256
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 2
    OnClick = Button2Click
  end
end