unit1.dfm

delphi典型实验代码

object Form1: TForm1
  Left = 341
  Top = 122
  Width = 454
  Height = 394
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -21
  Font.Name = #23435#20307
  Font.Style = [fsBold]
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 21
  object Label1: TLabel
    Left = 184
    Top = 248
    Width = 22
    Height = 21
    Caption = #20998
    Font.Charset = ANSI_CHARSET
    Font.Color = clTeal
    Font.Height = -21
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 120
    Top = 200
    Width = 44
    Height = 21
    Caption = #26102#38388
    Font.Charset = ANSI_CHARSET
    Font.Color = clMaroon
    Font.Height = -21
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 248
    Top = 248
    Width = 66
    Height = 21
    Caption = #20498#35745#26102
    Font.Charset = ANSI_CHARSET
    Font.Color = clPurple
    Font.Height = -21
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 192
    Top = 128
    Width = 12
    Height = 21
    Caption = 'L'
    Color = clBlue
    ParentColor = False
  end
  object Label5: TLabel
    Left = 232
    Top = 280
    Width = 96
    Height = 16
    Caption = #36895#24230'1000~100'
    Font.Charset = ANSI_CHARSET
    Font.Color = clTeal
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsItalic]
    ParentFont = False
  end
  object Button1: TButton
    Left = 88
    Top = 304
    Width = 113
    Height = 33
    Caption = 'Button1'
    Default = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clOlive
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 88
    Top = 240
    Width = 65
    Height = 29
    Font.Charset = ANSI_CHARSET
    Font.Color = clAqua
    Font.Height = -21
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ParentFont = False
    TabOrder = 1
    Text = 'Edit1'
  end
  object ScrollBar1: TScrollBar
    Left = 232
    Top = 312
    Width = 145
    Height = 17
    Max = 1000
    Min = 100
    PageSize = 0
    Position = 100
    TabOrder = 2
    OnChange = ScrollBar1Change
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 16
    Top = 24
  end
end