unit1.dfm

实现控制一个小球在窗口中上下左右任意移动

object Form1: TForm1
  Left = 199
  Top = 112
  Width = 753
  Height = 564
  Caption = 'Form1'
  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 SpeedButton2: TSpeedButton
    Left = 152
    Top = 32
    Width = 105
    Height = 41
    GroupIndex = 1
    Caption = 'down'
    OnClick = SpeedButton2Click
  end
  object SpeedButton3: TSpeedButton
    Left = 256
    Top = 32
    Width = 105
    Height = 41
    GroupIndex = 1
    Caption = 'left'
    OnClick = SpeedButton3Click
  end
  object SpeedButton4: TSpeedButton
    Left = 360
    Top = 32
    Width = 105
    Height = 41
    GroupIndex = 1
    Caption = 'right'
    OnClick = SpeedButton4Click
  end
  object SpeedButton1: TSpeedButton
    Left = 48
    Top = 32
    Width = 105
    Height = 41
    GroupIndex = 1
    Caption = 'up'
    OnClick = SpeedButton1Click
  end
  object Button1: TButton
    Tag = 1
    Left = 520
    Top = 32
    Width = 121
    Height = 41
    Caption = 'Start'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Panel1: TPanel
    Left = 40
    Top = 104
    Width = 625
    Height = 313
    Caption = 'Panel1'
    Color = clDefault
    TabOrder = 1
    object Shape1: TShape
      Left = 376
      Top = 64
      Width = 81
      Height = 49
      DragCursor = crHandPoint
      Shape = stCircle
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 511
    Width = 745
    Height = 19
    Panels = <>
    ParentShowHint = False
    ShowHint = False
    SimplePanel = True
    SimpleText = 'Welcome to visit this simple animation application'
    OnClick = Timer2Timer
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 1
    OnTimer = Timer1Timer
    Left = 8
    Top = 112
  end
  object Timer2: TTimer
    Interval = 50
    OnTimer = Timer2Timer
    Left = 8
    Top = 184
  end
end