u_form.dfm

来自「很好地delphi书籍源码」· DFM 代码 · 共 86 行

object Form1: TForm1
  Left = 213
  Top = 117
  Width = 482
  Height = 294
  Caption = #25991#20214#26597#25214#20030#20363
  Color = clScrollBar
  Ctl3D = False
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DirLabel: TLabel
    Left = 24
    Top = 8
    Width = 133
    Height = 13
    Caption = 'D:\...\Ch2\FindFile'
  end
  object LookupButton: TButton
    Left = 120
    Top = 232
    Width = 75
    Height = 25
    Caption = #26597#25214
    TabOrder = 0
    OnClick = LookupButtonClick
  end
  object DriveCB: TDriveComboBox
    Left = 16
    Top = 32
    Width = 177
    Height = 19
    BevelKind = bkFlat
    DirList = DirListBox1
    TabOrder = 1
  end
  object DirListBox1: TDirectoryListBox
    Left = 16
    Top = 56
    Width = 177
    Height = 129
    DirLabel = DirLabel
    ItemHeight = 16
    TabOrder = 2
  end
  object ExtCB: TComboBox
    Left = 16
    Top = 192
    Width = 177
    Height = 21
    BevelInner = bvLowered
    BevelKind = bkFlat
    ItemHeight = 13
    TabOrder = 3
    Items.Strings = (
      '*.*'
      '*.exe'
      '*.doc'
      '*.txt')
  end
  object ExitButton: TButton
    Left = 224
    Top = 232
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 4
    OnClick = ExitButtonClick
  end
  object ListBox1: TListBox
    Left = 200
    Top = 32
    Width = 265
    Height = 185
    Ctl3D = False
    ItemHeight = 13
    ParentCtl3D = False
    TabOrder = 5
  end
end