fmmain.dfm

多数代码可以直接在Delphi6和Delphi7环境下运行。部分涉及.NET技术内容的代码

object Form1: TForm1
  Left = 131
  Top = 113
  Width = 722
  Height = 451
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDblClick = FormDblClick
  OnDestroy = FormDestroy
  OnMouseDown = FormMouseDown
  PixelsPerInch = 120
  TextHeight = 16
  object StringGrid1: TStringGrid
    Left = 8
    Top = 0
    Width = 697
    Height = 233
    ColCount = 2
    DefaultColWidth = 150
    RowCount = 1000
    FixedRows = 0
    TabOrder = 0
    OnMouseDown = StringGrid1MouseDown
  end
  object btnDefaultHandler: TBitBtn
    Left = 10
    Top = 296
    Width = 169
    Height = 57
    Caption = 'Default Handler'
    TabOrder = 1
    OnClick = btnDefaultHandlerClick
    Kind = bkAll
  end
  object btnReset: TBitBtn
    Left = 363
    Top = 296
    Width = 169
    Height = 57
    Caption = 'Reset All'
    TabOrder = 2
    OnClick = btnResetClick
    Kind = bkNo
  end
  object btnAllMessages: TBitBtn
    Left = 187
    Top = 296
    Width = 169
    Height = 57
    Caption = 'All Messages'
    TabOrder = 3
    OnClick = btnAllMessagesClick
    Kind = bkOK
  end
  object BitBtn1: TBitBtn
    Left = 539
    Top = 296
    Width = 169
    Height = 57
    TabOrder = 4
    OnClick = btnResetClick
    Kind = bkClose
  end
  object BitBtn2: TBitBtn
    Left = 10
    Top = 360
    Width = 169
    Height = 57
    Caption = 'Cut All Messages'
    TabOrder = 5
    OnClick = BitBtn2Click
    Kind = bkIgnore
  end
  object btnTimer: TBitBtn
    Left = 185
    Top = 360
    Width = 169
    Height = 57
    Caption = 'Start Timer'
    ModalResult = 3
    TabOrder = 6
    OnClick = btnTimerClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      003337777777777777F330FFFFFFFFFFF03337F333FFFFF337F330FFF70007FF
      F03337F33777773F37F330FF08FFF80FF03337F373333373F7F330F78FFFFF87
      F03337F7F3333337F7F330F0FFFFFFF0F03337F7F333FFF7F7F330F0FFF900F0
      F03337F7F3377737F7F330F0FFF0FFF0F03337F7F337F337F7F330F78FF0FF87
      F03337F73F37F33737F330FF08F0F80FF03337F373F7FF7337F330FFF70007FF
      F03337F33777773FF7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F
      F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00
      333337FFFFFFFF77333330000000000333333777777777733333}
    NumGlyphs = 2
  end
  object btnFlowTime: TBitBtn
    Left = 369
    Top = 362
    Width = 169
    Height = 57
    Caption = 'Message Flow Time'
    ModalResult = 3
    TabOrder = 7
    OnClick = btnFlowTimeClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
      00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
      70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
      70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
      70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
      70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
      70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
      00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
    NumGlyphs = 2
  end
  object btnTriiger: TBitBtn
    Left = 545
    Top = 362
    Width = 169
    Height = 57
    Caption = 'Trigger'
    ModalResult = 3
    TabOrder = 8
    OnClick = btnTriigerClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337FF3333333333330003333333333333777F333333333333080333
      3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
      33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
      B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
      BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
      B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
      3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
      333333333337F33333333333333B333333333333333733333333}
    NumGlyphs = 2
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 432
    Top = 328
  end
end