main.dfm

一个电梯控制模拟程序 做得很好 有很形象的动画展示

object Form1: TForm1
  Left = 192
  Top = 107
  BorderStyle = bsNone
  Caption = 'Form1'
  ClientHeight = 348
  ClientWidth = 538
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Shape1: TShape
    Left = 120
    Top = 8
    Width = 33
    Height = 33
    Brush.Color = clLime
    Shape = stCircle
  end
  object Label1: TLabel
    Left = 160
    Top = 24
    Width = 24
    Height = 13
    Caption = #35686#28783
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label29: TLabel
    Left = 32
    Top = 104
    Width = 36
    Height = 35
    Caption = #30005
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -35
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label30: TLabel
    Left = 32
    Top = 344
    Width = 36
    Height = 35
    Caption = #31995
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -35
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label31: TLabel
    Left = 32
    Top = 304
    Width = 36
    Height = 35
    Caption = #25311
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -35
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label32: TLabel
    Left = 32
    Top = 264
    Width = 36
    Height = 35
    Caption = #27169
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -35
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label33: TLabel
    Left = 32
    Top = 224
    Width = 36
    Height = 35
    Caption = #24230
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -35
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label34: TLabel
    Left = 32
    Top = 144
    Width = 36
    Height = 35
    Caption = #26799
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -35
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label35: TLabel
    Left = 32
    Top = 184
    Width = 36
    Height = 35
    Caption = #35843
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -35
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label36: TLabel
    Left = 32
    Top = 384
    Width = 36
    Height = 35
    Caption = #32479
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -35
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label37: TLabel
    Left = 29
    Top = 102
    Width = 36
    Height = 35
    Caption = #30005
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -35
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label38: TLabel
    Left = 29
    Top = 342
    Width = 36
    Height = 35
    Caption = #31995
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -35
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label39: TLabel
    Left = 29
    Top = 302
    Width = 36
    Height = 35
    Caption = #25311
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -35
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label40: TLabel
    Left = 29
    Top = 262
    Width = 36
    Height = 35
    Caption = #27169
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -35
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label41: TLabel
    Left = 29
    Top = 222
    Width = 36
    Height = 35
    Caption = #24230
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -35
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Transparent = True