unit1.dfm

来自「注册表可视化读取DELPHI控件」· DFM 代码 · 共 119 行

object Form1: TForm1
  Left = 307
  Top = 317
  Width = 576
  Height = 379
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 20
  object Label1: TLabel
    Left = 112
    Top = 32
    Width = 81
    Height = 20
    Caption = #23383#31526#20018':'
  end
  object Label2: TLabel
    Left = 120
    Top = 80
    Width = 48
    Height = 20
    Caption = #25972#25968#65306
  end
  object Label3: TLabel
    Left = 120
    Top = 120
    Width = 48
    Height = 20
    Caption = 'Label3'
  end
  object SpeedButton1: TSpeedButton
    Left = 416
    Top = 32
    Width = 73
    Height = 22
    Caption = #35835#21462
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 424
    Top = 96
    Width = 65
    Height = 22
    Caption = #20445#23384
    OnClick = SpeedButton2Click
  end
  object Edit1: TEdit
    Left = 200
    Top = 32
    Width = 121
    Height = 28
    TabOrder = 0
    Text = 'Edit1'
  end
  object Edit2: TEdit
    Left = 200
    Top = 80
    Width = 121
    Height = 28
    TabOrder = 1
    Text = 'Edit2'
  end
  object Edit3: TEdit
    Left = 200
    Top = 120
    Width = 121
    Height = 28
    TabOrder = 2
    Text = 'Edit3'
  end
  object Memo1: TMemo
    Left = 128
    Top = 184
    Width = 313
    Height = 105
    Lines.Strings = (
      #27880#20876#34920#21487#35270#21270#35835#21462#25511#20214#65292#30452#25509#35774#35745#26102#35774#23450#21508
      #38190#20540)
    TabOrder = 3
  end
  object RegVar1: TRegVar
    RootKey = rgk_HKEY_CURRENT_USER
    Keys = <
      item
        RegistryKey = 'SoftWare'
        CreateKey = True
      end
      item
        RegistryKey = 'Q311'
        CreateKey = True
      end>
    WriteOnDef = True
    Fields = <
      item
        RegField = 'Name'
        VarType = rvt_String
        RegValue = ''
      end
      item
        RegField = 'Count'
        VarType = rvt_Integer
        RegValue = 0
      end
      item
        RegField = 'tt'
        VarType = rvt_Currency
        RegValue = 1009900c
      end>
    Left = 48
    Top = 24
  end
end