⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 main.dfm

📁 本程序通过电梯的例子,演示了DELPHI环境下的多线程用法,很有参考价值哦
💻 DFM
📖 第 1 页 / 共 2 页
字号:
object mainform: Tmainform
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = '电梯仿真系统'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object STB1: TStatusBar
    Left = 0
    Top = 534
    Width = 800
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 200
      end
      item
        Width = 200
      end
      item
        Width = 200
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 800
    Height = 534
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 1
    object PageControl1: TPageControl
      Left = 2
      Top = 2
      Width = 796
      Height = 530
      ActivePage = TabSheet1
      Align = alClient
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      Style = tsFlatButtons
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = '电梯状态'
        object Panel2: TPanel
          Left = 0
          Top = 0
          Width = 788
          Height = 499
          Align = alClient
          BevelInner = bvLowered
          TabOrder = 0
          object Label1: TLabel
            Left = 118
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E1'
          end
          object Label2: TLabel
            Left = 194
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E2'
          end
          object Label3: TLabel
            Left = 270
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E3'
          end
          object Label4: TLabel
            Left = 346
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E4'
          end
          object Label5: TLabel
            Left = 422
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E5'
          end
          object Label6: TLabel
            Left = 498
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E6'
          end
          object Label7: TLabel
            Left = 574
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E7'
          end
          object Label8: TLabel
            Left = 650
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E8'
          end
          object Label9: TLabel
            Left = 726
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E9'
          end
          object Label10: TLabel
            Left = 42
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E0'
          end
          object Label11: TLabel
            Left = 19
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间:'
          end
          object Label12: TLabel
            Left = 18
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label13: TLabel
            Left = 95
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间:'
          end
          object Label14: TLabel
            Left = 94
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label15: TLabel
            Left = 171
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间:'
          end
          object Label16: TLabel
            Left = 170
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label17: TLabel
            Left = 248
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间:'
          end
          object Label18: TLabel
            Left = 247
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label19: TLabel
            Left = 325
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间:'
          end
          object Label20: TLabel
            Left = 324
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label21: TLabel
            Left = 401
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间:'
          end
          object Label22: TLabel
            Left = 400
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label23: TLabel
            Left = 478
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间:'
          end
          object Label24: TLabel
            Left = 477
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label25: TLabel
            Left = 555
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间:'
          end
          object Label26: TLabel
            Left = 554
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label27: TLabel
            Left = 632
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间:'
          end
          object Label28: TLabel
            Left = 631
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label29: TLabel
            Left = 709
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间:'
          end
          object Label30: TLabel
            Left = 708
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label35: TLabel
            Left = 16
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E0电梯承载'
          end
          object Label36: TLabel
            Left = 92
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E1电梯承载'
          end
          object Label37: TLabel
            Left = 169
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E2电梯承载'
          end
          object Label38: TLabel
            Left = 245
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E3电梯承载'
          end
          object Label39: TLabel
            Left = 322
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E4电梯承载'
          end
          object Label40: TLabel
            Left = 398
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E5电梯承载'
          end
          object Label41: TLabel
            Left = 475
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E6电梯承载'
          end
          object Label42: TLabel
            Left = 551
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E7电梯承载'
          end
          object Label43: TLabel
            Left = 628
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E8电梯承载'
          end
          object Label44: TLabel
            Left = 704
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E9电梯承载'
          end
          object TB0: TTrackBar
            Left = 39
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 0
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB1: TTrackBar
            Left = 115
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 1
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB2: TTrackBar
            Left = 191
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 2
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB3: TTrackBar
            Left = 266
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 3
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB4: TTrackBar
            Left = 342
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 4
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB5: TTrackBar
            Left = 418
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 5
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB6: TTrackBar
            Left = 494
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 6
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB7: TTrackBar
            Left = 569
            Top = 21
            Width = 45
            Height = 277

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -