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

📄 umain.dfm

📁 实现UP、DOWN原语 产生3个进程: 两个进程模拟需要进入临界区的用户进程。 当需要进入临界区时
💻 DFM
字号:
object Main: TMain
  Left = 178
  Top = 127
  Width = 758
  Height = 512
  Caption = #25805#20316#31995#32479#35838#31243#35774#35745' build 20030929'
  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 Splitter1: TSplitter
    Left = 404
    Top = 0
    Width = 4
    Height = 466
    Cursor = crHSplit
    Align = alRight
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 404
    Height = 466
    Align = alClient
    Caption = #29366#24577#26174#31034#26465'('#22914#26524#27809#26377#20219#20309#19996#35199#26174#31034#65292#35831#28857#20987#30417#25511#29366#24577#30340#24320#22987#25353#38062')'
    TabOrder = 0
    object lbox: TListBox
      Left = 2
      Top = 15
      Width = 400
      Height = 449
      Align = alClient
      ItemHeight = 13
      TabOrder = 0
    end
  end
  object Panel1: TPanel
    Left = 408
    Top = 0
    Width = 342
    Height = 466
    Align = alRight
    TabOrder = 1
    object GroupBox2: TGroupBox
      Left = 1
      Top = 1
      Width = 340
      Height = 57
      Align = alTop
      Caption = #30417#25511#29366#24577
      TabOrder = 0
      object btnstartMonitor: TBitBtn
        Left = 24
        Top = 20
        Width = 75
        Height = 25
        Caption = #24320#22987
        TabOrder = 0
        OnClick = btnstartMonitorClick
        Kind = bkIgnore
      end
      object btnStopMonitor: TBitBtn
        Left = 112
        Top = 20
        Width = 75
        Height = 25
        Caption = #20572#27490
        Enabled = False
        TabOrder = 1
        OnClick = btnStopMonitorClick
        Kind = bkNo
      end
    end
    object GroupBox3: TGroupBox
      Left = 1
      Top = 346
      Width = 340
      Height = 119
      Align = alClient
      Caption = #36827#31243#20449#24687
      TabOrder = 1
      object lvInfo: TListView
        Left = 2
        Top = 15
        Width = 336
        Height = 102
        Align = alClient
        Columns = <
          item
            Caption = #21517#31216
            Width = 100
          end
          item
            Caption = #36816#34892#26102#38388
            Width = 60
          end
          item
            Caption = #37325#35797#26102#38388
            Width = 60
          end
          item
            Caption = #29616#22312#29366#24577
            Width = 60
          end>
        GridLines = True
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
    object GroupBox4: TGroupBox
      Left = 1
      Top = 58
      Width = 340
      Height = 151
      Align = alTop
      Caption = #21019#24314#27169#25311#36827#31243
      TabOrder = 2
      object Label3: TLabel
        Left = 8
        Top = 20
        Width = 36
        Height = 13
        AutoSize = False
        Caption = #21517#31216#65306
      end
      object Label4: TLabel
        Left = 8
        Top = 40
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #36816#34892#26102#38388#65306
      end
      object Label5: TLabel
        Left = 144
        Top = 51
        Width = 52
        Height = 13
        AutoSize = False
        Caption = '*1000'#27627#31186
      end
      object Label6: TLabel
        Left = 8
        Top = 64
        Width = 81
        Height = 13
        AutoSize = False
        Caption = #37325#35797#31561#24453#26102#38388#65306
      end
      object Label2: TLabel
        Left = 145
        Top = 68
        Width = 52
        Height = 13
        AutoSize = False
        Caption = '*1000'#27627#31186
      end
      object Label7: TLabel
        Left = 8
        Top = 90
        Width = 81
        Height = 13
        AutoSize = False
        Caption = #37325#35797#27425#25968#65306
      end
      object Label10: TLabel
        Left = 145
        Top = 92
        Width = 52
        Height = 13
        AutoSize = False
        Caption = #27425
      end
      object Label11: TLabel
        Left = 200
        Top = 64
        Width = 132
        Height = 78
        Caption = 
          #25552#31034#20449#24687#65306#21517#31216#20219#20309#21462#65292#20294#19981#33021#37325#21517#65307#36816#34892#26102#38388#26368#22909#38271#19968#28857#65292#22914'20'#31186#65307#37325#35797#26102#38388#19968#33324#27604#36816#34892#26102#38388#30701#28857#65292#37325#35797#27425#25968#22914#26524#36739#22823#30340#35805#65292#22914'10'#21017#27604#36739#28165 +
          #26970
        Color = clMedGray
        ParentColor = False
        WordWrap = True
      end
      object btnCreate: TBitBtn
        Left = 16
        Top = 116
        Width = 153
        Height = 25
        Caption = #21019#24314#27169#25311#36827#31243#24182#36816#34892
        TabOrder = 4
        OnClick = btnCreateClick
        Kind = bkOK
      end
      object edtName: TEdit
        Left = 80
        Top = 18
        Width = 190
        Height = 21
        TabOrder = 0
      end
      object edtRetry: TSpinEdit
        Left = 80
        Top = 64
        Width = 57
        Height = 22
        MaxValue = 0
        MinValue = 0
        TabOrder = 2
        Value = 0
      end
      object edtWaitTime: TSpinEdit
        Left = 80
        Top = 40
        Width = 57
        Height = 22
        MaxValue = 0
        MinValue = 0
        TabOrder = 1
        Value = 0
      end
      object edtTimes: TSpinEdit
        Left = 80
        Top = 88
        Width = 57
        Height = 22
        MaxValue = 0
        MinValue = 0
        TabOrder = 3
        Value = 0
      end
    end
    object GroupBox5: TGroupBox
      Left = 1
      Top = 209
      Width = 340
      Height = 137
      Align = alTop
      Caption = #20020#30028#21306#20449#24687
      TabOrder = 3
      object Label8: TLabel
        Left = 8
        Top = 24
        Width = 85
        Height = 13
        AutoSize = False
        Caption = #20020#30028#21306#36164#28304#25968#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 8
        Top = 56
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #26159#21542#20351#29992#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 7
        Top = 88
        Width = 96
        Height = 13
        AutoSize = False
        Caption = #24403#21069#20351#29992#36827#31243#21517#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object edtSource: TEdit
        Left = 100
        Top = 22
        Width = 181
        Height = 21
        ReadOnly = True
        TabOrder = 0
        Text = '3'
      end
      object edtUse: TEdit
        Left = 100
        Top = 54
        Width = 181
        Height = 21
        ReadOnly = True
        TabOrder = 1
      end
      object Edit1: TEdit
        Left = 99
        Top = 86
        Width = 181
        Height = 21
        ReadOnly = True
        TabOrder = 2
      end
      object CheckBox1: TCheckBox
        Left = 101
        Top = 112
        Width = 177
        Height = 17
        Caption = #19981#20801#35768#36827#31243#37322#25918#36164#28304
        TabOrder = 3
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 466
    Width = 750
    Height = 19
    Panels = <>
    SimplePanel = False
  end
end

⌨️ 快捷键说明

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