unit1.dfm

开发了一个用于模拟电梯的程序,虽然功能不是很强,但对于理解线程又很大的好处

object Form1: TForm1
  Left = 279
  Top = 82
  Width = 456
  Height = 577
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 448
    Height = 543
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #30005#26799#29366#24577
      object Label1: TLabel
        Left = 64
        Top = 0
        Width = 17
        Height = 17
        Caption = 'A'
      end
      object Label2: TLabel
        Left = 264
        Top = 8
        Width = 17
        Height = 25
        Caption = 'B'
      end
      object Label3: TLabel
        Left = 113
        Top = 8
        Width = 80
        Height = 13
        AutoSize = False
        Caption = 'A'#30005#26799#25215#36733
      end
      object Label4: TLabel
        Left = 305
        Top = 8
        Width = 80
        Height = 13
        AutoSize = False
        Caption = 'B'#30005#26799#25215#36733
      end
      object Label5: TLabel
        Left = 46
        Top = 282
        Width = 80
        Height = 13
        AutoSize = False
        Caption = 'A'#36816#34892#26102#38388
      end
      object Label6: TLabel
        Left = 257
        Top = 283
        Width = 80
        Height = 13
        AutoSize = False
        Caption = 'B'#36816#34892#26102#38388
      end
      object Label7: TLabel
        Left = 47
        Top = 327
        Width = 80
        Height = 13
        AutoSize = False
        Caption = 'A'#31354#38386#26102#38388
      end
      object Label8: TLabel
        Left = 257
        Top = 327
        Width = 80
        Height = 13
        AutoSize = False
        Caption = 'B'#31354#38386#26102#38388
      end
      object tb1: TTrackBar
        Left = 35
        Top = 16
        Width = 53
        Height = 253
        Orientation = trVertical
        TabOrder = 0
        TickMarks = tmBoth
      end
      object tb2: TTrackBar
        Left = 219
        Top = 18
        Width = 53
        Height = 258
        Orientation = trVertical
        TabOrder = 1
        TickMarks = tmBoth
      end
      object Memo1: TMemo
        Left = 85
        Top = 32
        Width = 127
        Height = 229
        Lines.Strings = (
          '')
        ScrollBars = ssVertical
        TabOrder = 2
      end
      object Memo2: TMemo
        Left = 277
        Top = 32
        Width = 127
        Height = 229
        Lines.Strings = (
          '')
        ScrollBars = ssVertical
        TabOrder = 3
      end
      object StaticText1: TStaticText
        Left = 43
        Top = 304
        Width = 152
        Height = 20
        AutoSize = False
        BevelInner = bvNone
        BevelKind = bkFlat
        BevelOuter = bvNone
        BorderStyle = sbsSunken
        Color = clBtnHighlight
        ParentColor = False
        TabOrder = 4
      end
      object StaticText2: TStaticText
        Left = 43
        Top = 360
        Width = 152
        Height = 20
        AutoSize = False
        BorderStyle = sbsSunken
        Color = clHighlightText
        ParentColor = False
        TabOrder = 5
      end
      object StaticText3: TStaticText
        Left = 256
        Top = 304
        Width = 152
        Height = 20
        AutoSize = False
        BorderStyle = sbsSunken
        Color = clHighlightText
        ParentColor = False
        TabOrder = 6
      end
      object StaticText4: TStaticText
        Left = 256
        Top = 360
        Width = 152
        Height = 20
        AutoSize = False
        BorderStyle = sbsSunken
        Color = clHighlightText
        ParentColor = False
        TabOrder = 7
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20056#23458#32479#35745
      ImageIndex = 1
      object Label9: TLabel
        Left = 4
        Top = 8
        Width = 77
        Height = 13
        AutoSize = False
        Caption = #24403#21069#31561#20505
      end
      object Label10: TLabel
        Left = 220
        Top = 8
        Width = 77
        Height = 13
        AutoSize = False
        Caption = #24403#21069#38386#21592
      end
      object Label11: TLabel
        Left = 7
        Top = 256
        Width = 90
        Height = 13
        AutoSize = False
        Caption = #24403#21069#20056#23458
      end
      object Label12: TLabel
        Left = 224
        Top = 256
        Width = 105
        Height = 13
        AutoSize = False
        Caption = #21040#36798#20056#23458
      end
      object Memo3: TMemo
        Left = 6
        Top = 24
        Width = 209
        Height = 227
        Lines.Strings = (
          '')
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object Memo4: TMemo
        Left = 220
        Top = 24
        Width = 211
        Height = 227
        Lines.Strings = (
          '')
        ScrollBars = ssVertical
        TabOrder = 1
      end
      object Memo5: TMemo
        Left = 6
        Top = 272
        Width = 207
        Height = 227
        Lines.Strings = (
          '')
        ScrollBars = ssVertical
        TabOrder = 2
      end
      object Memo6: TMemo
        Left = 220
        Top = 272
        Width = 205
        Height = 227
        Lines.Strings = (
          '')
        ScrollBars = ssVertical
        TabOrder = 3
      end
      object stb1: TStatusBar
        Left = 0
        Top = 496
        Width = 440
        Height = 19
        Panels = <
          item
            Width = 50
          end
          item
            Width = 50
          end
          item
            Width = 50
          end
          item
            Width = 50
          end>
      end
    end
    object TabSheet3: TTabSheet
      Caption = #27004#23618#32479#35745
      ImageIndex = 2
      object StrGd1: TStringGrid
        Left = 0
        Top = 0
        Width = 441
        Height = 513
        TabOrder = 0
        RowHeights = (
          24
          24
          24
          24
          24)
      end
    end
  end
end