unit1.dfm

delphi 函数 delphi 函数 delphi 函数

object Form1: TForm1
  Left = 314
  Top = 164
  Width = 495
  Height = 328
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Shell Dlg 2'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 232
    Top = 208
    Width = 28
    Height = 13
    Caption = #36827#24230':'
  end
  object lst_dir: TListBox
    Left = 16
    Top = 24
    Width = 193
    Height = 257
    ItemHeight = 13
    TabOrder = 0
  end
  object Button1: TButton
    Left = 232
    Top = 24
    Width = 169
    Height = 57
    Caption = #23548#20837#25991#20214#21517
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 232
    Top = 112
    Width = 169
    Height = 65
    Caption = #21024#38500#30446#24405#21450#25991#20214
    TabOrder = 2
    OnClick = Button2Click
  end
  object ProgressBar1: TProgressBar
    Left = 232
    Top = 232
    Width = 241
    Height = 16
    TabOrder = 3
  end
  object dlgOpen1: TOpenDialog
    Filter = '*.txt|*.txt'
    Left = 424
    Top = 16
  end
end