unit1.dfm

自编的华容道小游戏

object Form1: TForm1
  Left = 228
  Top = 111
  Width = 590
  Height = 384
  Caption = '华容道'
  Color = clActiveCaption
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 20
  object Label3: TLabel
    Left = 392
    Top = 8
    Width = 89
    Height = 20
    AutoSize = False
    Caption = '华容小径'
    Color = clActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label4: TLabel
    Left = 336
    Top = 40
    Width = 185
    Height = 20
    AutoSize = False
    Caption = '兵不在多，四个则行'
    Color = clActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label5: TLabel
    Left = 336
    Top = 66
    Width = 185
    Height = 20
    AutoSize = False
    Caption = '将不在广，五虎则灵'
    Color = clActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label6: TLabel
    Left = 336
    Top = 93
    Width = 185
    Height = 20
    AutoSize = False
    Caption = '斯是游戏，唯吾闲情'
    Color = clActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label7: TLabel
    Left = 336
    Top = 119
    Width = 225
    Height = 20
    AutoSize = False
    Caption = '曹操逃得快，小兵追得勤'
    Color = clActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label8: TLabel
    Left = 336
    Top = 145
    Width = 185
    Height = 20
    AutoSize = False
    Caption = '过关斩将，聚会四星'
    Color = clActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label9: TLabel
    Left = 336
    Top = 171
    Width = 185
    Height = 20
    AutoSize = False
    Caption = '华容小道，关羽动心'
    Color = clActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label10: TLabel
    Left = 336
    Top = 198
    Width = 185
    Height = 20
    AutoSize = False
    Caption = '私放曹操，报答恩情'
    Color = clActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label11: TLabel
    Left = 336
    Top = 224
    Width = 217
    Height = 20
    AutoSize = False
    Caption = '有诗云：华容游戏见真情'
    Color = clActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label12: TLabel
    Left = 344
    Top = 256
    Width = 169
    Height = 20
    AutoSize = False
    Caption = 'Label12'
    Color = clActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 305
    Height = 353
    BevelWidth = 3
    Color = clBlue
    TabOrder = 0
    object Label1: TLabel
      Left = 88
      Top = 304
      Width = 30
      Height = 37
      Caption = '出'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -32
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 158
      Top = 304
      Width = 30
      Height = 37
      Caption = '口'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -32
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
  end
  object Button1: TButton
    Left = 344
    Top = 296
    Width = 81
    Height = 33
    Caption = '重新开始'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 472
    Top = 296
    Width = 75
    Height = 33
    Caption = '退出游戏'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 344
    Top = 24
  end
end