Delphi控件源码

开发平台：

Delphi

datafrm.dfm：源码内容

							object frm_Data: Tfrm_Data
  Left = 211
  Top = 160
  BorderStyle = bsDialog
  Caption = 'frm_Data'
  ClientHeight = 156
  ClientWidth = 424
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Bevel1: TBevel
    Left = 18
    Top = 8
    Width = 393
    Height = 89
  end
  object lbl_Caption: TLabel
    Left = 30
    Top = 33
    Width = 77
    Height = 14
    Caption = 'lbl_Caption'
  end
  object SpeedButton1: TSpeedButton
    Left = 370
    Top = 30
    Width = 23
    Height = 22
    Caption = '...'
    OnClick = SpeedButton1Click
  end
  object edt_Path: TEdit
    Left = 112
    Top = 29
    Width = 257
    Height = 22
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 0
  end
  object ProgressBar: TProgressBar
    Left = 18
    Top = 108
    Width = 393
    Height = 9
    Min = 0
    Max = 100
    TabOrder = 1
  end
  object btnOK: TButton
    Left = 243
    Top = 125
    Width = 75
    Height = 25
    Caption = #30830#23450'&A'
    TabOrder = 2
    OnClick = btnOKClick
  end
  object btnCancel: TButton
    Left = 337
    Top = 125
    Width = 75
    Height = 25
    Cancel = True
    Caption = #21462#28040'&Q'
    TabOrder = 3
    OnClick = btnCancelClick
  end
  object Panel_Hide: TPanel
    Left = 20
    Top = 64
    Width = 383
    Height = 30
    BevelOuter = bvNone
    TabOrder = 4
    object Label2: TLabel
      Left = 12
      Top = 3
      Width = 77
      Height = 14
      Caption = #22791#20221#25991#20214#21517':'
    end
    object Edt_FileName: TEdit
      Left = 92
      Top = 0
      Width = 165
      Height = 22
      TabOrder = 0
    end
  end
  object ADOBackUP: TADOBackUP
    BackUpFileName = 'Save.dat'
    ADOConnection = DMMain.ADOConnection1
    IsDevide = False
    Procession = ADOBackUPProcession
    Left = 112
    Top = 124
  end
  object OpenDialog: TOpenDialog
    Left = 160
    Top = 124
  end
end

						