unit1.dfm

来自「Delphi编程实效百例的随书程序 这是其中的界面操作部分」· DFM 代码 · 共 62 行

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 461
  Height = 321
  Caption = 'Form1'
  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 DriveComboBox1: TDriveComboBox
    Left = 24
    Top = 16
    Width = 161
    Height = 19
    TabOrder = 0
    OnChange = DriveComboBox1Change
  end
  object FileListBox1: TFileListBox
    Left = 216
    Top = 16
    Width = 201
    Height = 249
    ItemHeight = 13
    TabOrder = 1
    OnChange = FileListBox1Change
  end
  object FilterComboBox1: TFilterComboBox
    Left = 24
    Top = 232
    Width = 161
    Height = 21
    Filter = 
      'All files (*.*)|*.*|Text files(*.txt)|*.txt|Bmp files(*.bmp)|*.b' +
      'mp|Word files(*.doc)|*.doc'
    TabOrder = 2
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 24
    Top = 48
    Width = 161
    Height = 169
    ItemHeight = 16
    TabOrder = 3
    OnChange = DirectoryListBox1Change
  end
  object Edit1: TEdit
    Left = 24
    Top = 264
    Width = 161
    Height = 21
    TabOrder = 4
    Text = 'Edit1'
  end
end