u_form1.dfm

很好地delphi书籍源码

object Form1: TForm1
  Left = 293
  Top = 117
  Width = 436
  Height = 262
  Caption = 'Animate'#28436#31034#31243#24207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 428
    Height = 33
    ButtonHeight = 21
    ButtonWidth = 55
    Caption = 'ToolBar1'
    Flat = True
    ShowCaptions = True
    TabOrder = 0
    object StartTB: TToolButton
      Left = 0
      Top = 0
      Caption = #24320#22987
      ImageIndex = 0
      OnClick = StartTBClick
    end
    object StopTB: TToolButton
      Left = 55
      Top = 0
      Caption = #20572#27490
      ImageIndex = 1
      OnClick = StopTBClick
    end
    object PlayOneTB: TToolButton
      Left = 110
      Top = 0
      Caption = #25773'1'#27425
      ImageIndex = 2
      OnClick = PlayOneTBClick
    end
    object PlayTwoTB: TToolButton
      Left = 165
      Top = 0
      Caption = #25773'2'#27425
      ImageIndex = 3
      OnClick = PlayTwoTBClick
    end
    object FrameTB: TToolButton
      Left = 220
      Top = 0
      Caption = #25773#25351#23450#26722
      ImageIndex = 4
      OnClick = FrameTBClick
    end
    object SpaceTB: TToolButton
      Left = 275
      Top = 0
      Width = 21
      Caption = 'SpaceTB'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ComboBox1: TComboBox
      Left = 296
      Top = 0
      Width = 109
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 0
      Text = #26469#33258#25991#20214' '
      OnChange = ComboBox1Change
      Items.Strings = (
        #26469#33258#25991#20214' '
        #26597#25214#30446#24405
        #26597#25214#25991#20214' '
        #26597#25214#35745#31639#26426' ,'
        #22797#21046#22810#20010#25991#20214' '
        #22797#21046#21333#20010#25991#20214' '
        #22238#25910#25991#20214
        #28165#31354#22238#25910#31449
        #21024#38500#25991#20214' ')
    end
  end
  object Animate1: TAnimate
    Left = 0
    Top = 61
    Width = 428
    Height = 174
    Align = alClient
    OnOpen = Animate1Open
  end
  object Panel1: TPanel
    Left = 0
    Top = 33
    Width = 428
    Height = 28
    Align = alTop
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 6
      Width = 39
      Height = 13
      Caption = #26722#33539#22260
    end
    object Label2: TLabel
      Left = 111
      Top = 6
      Width = 13
      Height = 13
      Caption = #21040
    end
    object SpinEdit1: TSpinEdit
      Left = 56
      Top = 2
      Width = 49
      Height = 22
      MaxValue = 0
      MinValue = 0
      TabOrder = 0
      Value = 0
    end
    object SpinEdit2: TSpinEdit
      Left = 128
      Top = 2
      Width = 49
      Height = 22
      MaxValue = 0
      MinValue = 0
      TabOrder = 1
      Value = 0
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 200
    Top = 32
  end
end