main.dfm

本程序通过电梯的例子,演示了DELPHI环境下的多线程用法,很有参考价值哦

            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 7
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB8: TTrackBar
            Left = 645
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 8
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB9: TTrackBar
            Left = 721
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 9
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object Memo0: TMemo
            Left = 14
            Top = 320
            Width = 69
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 10
          end
          object Memo1: TMemo
            Left = 91
            Top = 320
            Width = 70
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 11
          end
          object Memo2: TMemo
            Left = 167
            Top = 320
            Width = 70
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 12
          end
          object Memo3: TMemo
            Left = 244
            Top = 320
            Width = 69
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 13
          end
          object Memo4: TMemo
            Left = 321
            Top = 320
            Width = 70
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 14
          end
          object Memo5: TMemo
            Left = 397
            Top = 320
            Width = 70
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 15
          end
          object Memo6: TMemo
            Left = 474
            Top = 320
            Width = 69
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 16
          end
          object Memo7: TMemo
            Left = 551
            Top = 320
            Width = 70
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 17
          end
          object Memo8: TMemo
            Left = 627
            Top = 320
            Width = 70
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 18
          end
          object Memo9: TMemo
            Left = 704
            Top = 320
            Width = 71
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 19
          end
          object ST0: TStaticText
            Left = 18
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 20
          end
          object ST1: TStaticText
            Left = 94
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 21
          end
          object ST2: TStaticText
            Left = 171
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 22
          end
          object ST3: TStaticText
            Left = 250
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 23
          end
          object ST4: TStaticText
            Left = 325
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 24
          end
          object ST5: TStaticText
            Left = 401
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 25
          end
          object ST6: TStaticText
            Left = 478
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 26
          end
          object ST7: TStaticText
            Left = 555
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 27
          end
          object ST8: TStaticText
            Left = 633
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 28
          end
          object ST9: TStaticText
            Left = 710
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 29
          end
          object idleST0: TStaticText
            Left = 18
            Top = 469
            Width = 52
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 30
          end
          object idleST1: TStaticText
            Left = 94
            Top = 469
            Width = 52
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 31
          end
          object idleST2: TStaticText
            Left = 170
            Top = 469
            Width = 52
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 32
          end
          object idleST3: TStaticText
            Left = 248
            Top = 469
            Width = 52
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 33
          end
          object idleST4: TStaticText
            Left = 325
            Top = 469
            Width = 52
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 34
          end
          object idleST5: TStaticText
            Left = 400
            Top = 469
            Width = 52
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 35
          end
          object idleST6: TStaticText
            Left = 477
            Top = 469
            Width = 52
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 36
          end
          object idleST7: TStaticText
            Left = 554
            Top = 469
            Width = 52
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 37
          end
          object idleST8: TStaticText
            Left = 632
            Top = 469
            Width = 51
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 38
          end
          object idleST9: TStaticText
            Left = 710
            Top = 469
            Width = 51
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 39
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = '人员统计'
        ImageIndex = 1
        object Panel4: TPanel
          Left = 0
          Top = 0
          Width = 788
          Height = 499
          Align = alClient
          BevelInner = bvLowered
          TabOrder = 0
          object Label31: TLabel
            Left = 29
            Top = 70
            Width = 117
            Height = 13
            Caption = '当前请求乘梯人员：'
          end
          object Label32: TLabel
            Left = 225
            Top = 70
            Width = 91
            Height = 13
            Caption = '当前闲留人员：'
          end
          object Label33: TLabel
            Left = 597
            Top = 70
            Width = 156
            Height = 13
            Caption = '当前完成乘梯任务的人员：'
          end
          object Label34: TLabel
            Left = 413
            Top = 70
            Width = 130
            Height = 13
            Caption = '当前正在乘梯的人员：'
          end
          object Memo10: TMemo
            Left = 18
            Top = 90
            Width = 185
            Height = 314
            Color = clInfoBk
            Lines.Strings = (
              'Memo10')
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 0
          end
          object Memo11: TMemo
            Left = 209
            Top = 90
            Width = 185
            Height = 314
            Color = clInfoBk
            Lines.Strings = (
              'Memo11')
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 1
          end
          object Memo12: TMemo
            Left = 583
            Top = 90
            Width = 185
            Height = 314
            Color = clInfoBk
            Lines.Strings = (
              'Memo12')
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 2
          end
          object Memo13: TMemo
            Left = 400
            Top = 90
            Width = 175
            Height = 314
            Color = clInfoBk
            Lines.Strings = (
              'Memo13')
            TabOrder = 3
          end
        end
      end
      object TabSheet3: TTabSheet
        Caption = '楼层统计'
        ImageIndex = 2
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 788
          Height = 499
          Align = alClient
          BevelInner = bvLowered
          TabOrder = 0
          object StrGD1: TStringGrid
            Left = 2
            Top = 2
            Width = 784
            Height = 495
            Align = alClient
            Color = clInfoBk
            ColCount = 11
            DefaultColWidth = 70
            RowCount = 12
            TabOrder = 0
          end
        end
      end
    end
  end
end