findpas.dfm

特别方便的工具程序

object FindForm: TFindForm
  Left = 69
  Top = 105
  Width = 600
  Height = 398
  Caption = #26597#25214#26367#25442#23383#31526#20018#31383#21475
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 592
    Height = 276
    ActivePage = TabSheet2
    Align = alClient
    Style = tsButtons
    TabIndex = 1
    TabOrder = 0
    TabWidth = 180
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = '(&A)'#26597#25214#25991#20214#23383#20018
      ImageIndex = 1
      object Splitter1: TSplitter
        Left = 241
        Top = 0
        Width = 5
        Height = 244
        Cursor = crHSplit
        Color = clBlue
        ParentColor = False
      end
      object Image1: TImage
        Left = 376
        Top = 16
        Width = 137
        Height = 105
        Stretch = True
      end
      object Image2: TImage
        Left = 376
        Top = 136
        Width = 137
        Height = 89
        Stretch = True
      end
      object Memo1: TMemo
        Left = 246
        Top = 0
        Width = 75
        Height = 249
        Lines.Strings = (
          'Memo1')
        TabOrder = 0
      end
      object Memo2: TMemo
        Left = 0
        Top = 0
        Width = 241
        Height = 244
        Align = alLeft
        Lines.Strings = (
          'Memo2'
          ''
          '')
        TabOrder = 1
      end
    end
    object TabSheet2: TTabSheet
      Caption = '(&B)'#26367#25442#25991#20214#23383#20018
      ImageIndex = 2
      object Splitter2: TSplitter
        Left = 265
        Top = 0
        Width = 5
        Height = 244
        Cursor = crHSplit
        Color = clBlue
        ParentColor = False
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 265
        Height = 244
        Align = alLeft
        BevelInner = bvLowered
        TabOrder = 0
        object Memo3: TMemo
          Left = 2
          Top = 43
          Width = 261
          Height = 199
          Align = alClient
          BorderStyle = bsNone
          Lines.Strings = (
            'Memo2'
            ''
            '')
          TabOrder = 0
        end
        object Panel5: TPanel
          Left = 2
          Top = 2
          Width = 261
          Height = 41
          Align = alTop
          BevelOuter = bvLowered
          Caption = #26597#25214#20018#38598#21512
          TabOrder = 1
        end
      end
      object Panel4: TPanel
        Left = 270
        Top = 0
        Width = 314
        Height = 244
        Align = alClient
        BevelInner = bvLowered
        TabOrder = 1
        object Memo4: TMemo
          Left = 2
          Top = 43
          Width = 310
          Height = 199
          Align = alClient
          BorderStyle = bsNone
          Lines.Strings = (
            'Memo1')
          TabOrder = 0
        end
        object Panel6: TPanel
          Left = 2
          Top = 2
          Width = 310
          Height = 41
          Align = alTop
          BevelOuter = bvLowered
          Caption = #26367#25442#20018#38598#21512
          TabOrder = 1
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 276
    Width = 592
    Height = 95
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Label2: TLabel
      Left = 12
      Top = 18
      Width = 98
      Height = 14
      Caption = '&S-'#25628#32034#36335#24452#21517#65306
    end
    object Button1: TButton
      Left = 398
      Top = 14
      Width = 56
      Height = 23
      Caption = #36873#25321'(C)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = GetFileName
    end
    object Edit2: TEdit
      Left = 108
      Top = 14
      Width = 285
      Height = 22
      TabOrder = 1
      Text = 'Edit2'
    end
    object CheckBox1: TCheckBox
      Left = 464
      Top = 17
      Width = 105
      Height = 17
      Caption = #20316#20026' UNICODE'
      TabOrder = 2
    end
    object Button2: TButton
      Left = 468
      Top = 57
      Width = 105
      Height = 25
      Caption = #36864#20986'(&X)'
      TabOrder = 3
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 357
      Top = 57
      Width = 105
      Height = 25
      Caption = #30830#23450'(&G)'
      TabOrder = 4
      OnClick = Button3Click
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'EXE'
    Left = 160
    Top = 104
  end
  object OpenDialog2: TOpenDialog
    DefaultExt = 'EXE'
    Left = 88
    Top = 104
  end
  object FindDialog1: TFindDialog
    Left = 300
    Top = 101
  end
end