setupin.dfm

模拟电梯系统,有40个楼层,10做电梯,实现全部人和动作,望大家参考,提意见.

object setupForm: TsetupForm
  Left = 261
  Top = 143
  BorderStyle = bsDialog
  Caption = '电梯仿真系统'
  ClientHeight = 325
  ClientWidth = 377
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 377
    Height = 325
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 100
      Top = 22
      Width = 168
      Height = 21
      Caption = '系统运行参数设置'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object BitBtn1: TBitBtn
      Left = 64
      Top = 289
      Width = 114
      Height = 25
      Caption = '进入仿真系统'
      DragCursor = crHandPoint
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = BitBtn1Click
      Kind = bkOK
    end
    object BitBtn2: TBitBtn
      Left = 204
      Top = 289
      Width = 114
      Height = 25
      Caption = '退出仿真系统'
      DragCursor = crHandPoint
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn2Click
      Kind = bkCancel
    end
    object GroupBox1: TGroupBox
      Left = 61
      Top = 54
      Width = 262
      Height = 230
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      object Label2: TLabel
        Left = 20
        Top = 22
        Width = 104
        Height = 13
        Caption = '电梯最大载客量：'
      end
      object Label3: TLabel
        Left = 20
        Top = 58
        Width = 91
        Height = 13
        Caption = '参与仿真人数：'
      end
      object Label4: TLabel
        Left = 20
        Top = 93
        Width = 91
        Height = 13
        Caption = '人员到齐时间：'
      end
      object Label5: TLabel
        Left = 20
        Top = 129
        Width = 91
        Height = 13
        Caption = '电梯运行速度：'
      end
      object Label6: TLabel
        Left = 20
        Top = 164
        Width = 91
        Height = 13
        Caption = '上下电梯时间：'
      end
      object Label7: TLabel
        Left = 213
        Top = 23
        Width = 13
        Height = 13
        Caption = '人'
      end
      object Label8: TLabel
        Left = 213
        Top = 58
        Width = 13
        Height = 13
        Caption = '人'
      end
      object Label9: TLabel
        Left = 213
        Top = 93
        Width = 26
        Height = 13
        Caption = '分钟'
      end
      object Label10: TLabel
        Left = 213
        Top = 128
        Width = 33
        Height = 13
        Caption = '秒/层'
      end
      object Label11: TLabel
        Left = 213
        Top = 163
        Width = 33
        Height = 13
        Caption = '秒/人'
      end
      object Label12: TLabel
        Left = 20
        Top = 200
        Width = 91
        Height = 13
        Caption = '乘坐电梯次数：'
      end
      object Label13: TLabel
        Left = 216
        Top = 198
        Width = 13
        Height = 13
        Caption = '次'
      end
      object SEMaxLoad: TSpinEdit
        Left = 119
        Top = 20
        Width = 77
        Height = 22
        MaxLength = 2
        MaxValue = 20
        MinValue = 10
        TabOrder = 0
        Value = 15
      end
      object SEPersonNum: TSpinEdit
        Left = 119
        Top = 55
        Width = 77
        Height = 22
        MaxLength = 3
        MaxValue = 1000
        MinValue = 0
        TabOrder = 1
        Value = 100
      end
      object SEOntime: TSpinEdit
        Left = 119
        Top = 90
        Width = 77
        Height = 22
        MaxLength = 2
        MaxValue = 10
        MinValue = 0
        TabOrder = 2
        Value = 5
      end
      object SEElavotorSpeed: TSpinEdit
        Left = 119
        Top = 125
        Width = 77
        Height = 22
        MaxLength = 1
        MaxValue = 5
        MinValue = 1
        TabOrder = 3
        Value = 1
      end
      object SEUpDownTime: TSpinEdit
        Left = 119
        Top = 160
        Width = 77
        Height = 22
        MaxLength = 2
        MaxValue = 10
        MinValue = 2
        TabOrder = 4
        Value = 2
      end
      object SETakeNum: TSpinEdit
        Left = 119
        Top = 195
        Width = 76
        Height = 22
        MaxLength = 1
        MaxValue = 10
        MinValue = 1
        TabOrder = 5
        Value = 5
      end
    end
  end
end