unit1.dfm

一个关于电梯的模拟程序算法 拥有良好的用户界面

object Form1: TForm1
  Left = 131
  Top = 90
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '电梯模型'
  ClientHeight = 424
  ClientWidth = 603
  Color = clInactiveBorder
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -24
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 24
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 313
    Height = 409
    Caption = '电梯外部'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object floor7: TLabel
      Tag = 6
      Left = 160
      Top = 72
      Width = 60
      Height = 19
      Caption = '第七楼'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '隶书'
      Font.Style = []
      ParentFont = False
    end
    object floor2: TLabel
      Tag = 1
      Left = 160
      Top = 320
      Width = 60
      Height = 19
      Caption = '第二楼'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '隶书'
      Font.Style = []
      ParentFont = False
    end
    object floor1: TLabel
      Left = 160
      Top = 368
      Width = 60
      Height = 19
      Caption = '第一楼'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '隶书'
      Font.Style = []
      ParentFont = False
    end
    object floor5: TLabel
      Tag = 4
      Left = 160
      Top = 168
      Width = 60
      Height = 19
      Caption = '第五楼'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '隶书'
      Font.Style = []
      ParentFont = False
    end
    object floor3: TLabel
      Tag = 2
      Left = 160
      Top = 272
      Width = 60
      Height = 19
      Caption = '第三楼'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '隶书'
      Font.Style = []
      ParentFont = False
    end
    object floor4: TLabel
      Tag = 3
      Left = 160
      Top = 221
      Width = 60
      Height = 19
      Caption = '第四楼'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '隶书'
      Font.Style = []
      ParentFont = False
    end
    object floor6: TLabel
      Tag = 5
      Left = 160
      Top = 120
      Width = 60
      Height = 19
      Caption = '第六楼'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '隶书'
      Font.Style = []
      ParentFont = False
    end
    object eledown2: TBitBtn
      Left = 272
      Top = 320
      Width = 30
      Height = 30
      Caption = '下'
      TabOrder = 0
      OnClick = eledown2Click
    end
    object eleup2: TBitBtn
      Left = 242
      Top = 320
      Width = 30
      Height = 30
      Caption = '上'
      TabOrder = 1
      OnClick = eleup2Click
    end
    object eleup1: TBitBtn
      Left = 242
      Top = 368
      Width = 30
      Height = 30
      Caption = '上'
      TabOrder = 2
      OnClick = eleup1Click
    end
    object eleup3: TBitBtn
      Left = 242
      Top = 264
      Width = 30
      Height = 30
      Caption = '上'
      TabOrder = 3
      OnClick = eleup3Click
    end
    object eledown3: TBitBtn
      Left = 272
      Top = 264
      Width = 30
      Height = 30
      Caption = '下'
      TabOrder = 4
      OnClick = eledown3Click
    end
    object eledown4: TBitBtn
      Left = 272
      Top = 216
      Width = 30
      Height = 30
      Caption = '下'
      TabOrder = 5
      OnClick = eledown4Click
    end
    object eleup4: TBitBtn
      Left = 242
      Top = 216
      Width = 30
      Height = 30
      Caption = '上'
      TabOrder = 6
      OnClick = eleup4Click
    end
    object eledown5: TBitBtn
      Left = 272
      Top = 160
      Width = 30
      Height = 30
      Caption = '下'
      TabOrder = 7
      OnClick = eledown5Click
    end
    object eleup5: TBitBtn
      Left = 242
      Top = 160
      Width = 30
      Height = 30
      Caption = '上'
      TabOrder = 8
      OnClick = eleup5Click
    end
    object eleup6: TBitBtn
      Left = 242
      Top = 112
      Width = 30
      Height = 30
      Caption = '上'
      TabOrder = 9
      OnClick = eleup6Click
    end
    object eledown6: TBitBtn
      Left = 272
      Top = 112
      Width = 30
      Height = 30
      Caption = '下'
      TabOrder = 10
      OnClick = eledown6Click
    end
    object eledown7: TBitBtn
      Left = 272
      Top = 64
      Width = 30
      Height = 30
      Caption = '下'