mainform.dfm

Delphi7高级应用开发随书源码

object Form1: TForm1
  Left = 274
  Top = 117
  Width = 447
  Height = 430
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 8
    Width = 100
    Height = 13
    Caption = #25628#32034#23383#31526#20018
  end
  object Label2: TLabel
    Left = 24
    Top = 88
    Width = 100
    Height = 13
    Caption = #25214#21040#30340#25991#20214
  end
  object edtSearchString: TEdit
    Left = 24
    Top = 32
    Width = 177
    Height = 21
    TabOrder = 0
    OnChange = edtSearchStringChange
  end
  object btnSearch: TButton
    Left = 24
    Top = 56
    Width = 73
    Height = 25
    Caption = #25628#32034
    TabOrder = 1
    OnClick = btnSearchClick
  end
  object dcbDrives: TDriveComboBox
    Left = 240
    Top = 32
    Width = 161
    Height = 19
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = 10
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnChange = dcbDrivesChange
  end
  object dlbDirectory: TDirectoryListBox
    Left = 240
    Top = 72
    Width = 169
    Height = 145
    ItemHeight = 16
    TabOrder = 3
  end
  object btnFindNext: TButton
    Left = 24
    Top = 224
    Width = 75
    Height = 25
    Caption = #25628#32034#19979#19968#20010
    TabOrder = 4
    OnClick = btnFindNextClick
  end
  object mFileText: TMemo
    Left = 24
    Top = 256
    Width = 393
    Height = 129
    Lines.Strings = (
      'mFileText')
    TabOrder = 5
    OnChange = mFileTextChange
  end
  object lbFileFound: TListBox
    Left = 24
    Top = 112
    Width = 185
    Height = 105
    ItemHeight = 13
    TabOrder = 6
    OnClick = lbFileFoundClick
  end
  object FindDialog: TFindDialog
    OnFind = FindDialogFind
    Left = 168
    Top = 56
  end
end