event.~dfm

串口监控程序,可与UPS进行通信,适合初学者使用

object fevent: Tfevent
  Left = 357
  Top = 224
  Width = 536
  Height = 304
  Caption = #20107#20214#32426#24405#26723
  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 RzButton1: TRzButton
    Left = 186
    Top = 232
    Caption = #21478#23384#20026'...'
    HotTrack = True
    HotTrackColor = clYellow
    TabOrder = 0
  end
  object RzButton2: TRzButton
    Left = 272
    Top = 232
    Caption = #25171#21360
    HotTrack = True
    HotTrackColor = clYellow
    TabOrder = 1
    OnClick = RzButton2Click
  end
  object RzButton4: TRzButton
    Left = 356
    Top = 232
    Caption = #28165#38500
    HotTrack = True
    HotTrackColor = clYellow
    TabOrder = 2
    OnClick = RzButton4Click
  end
  object RzButton5: TRzButton
    Left = 442
    Top = 232
    Caption = #36864#20986
    HotTrack = True
    HotTrackColor = clYellow
    TabOrder = 3
    OnClick = RzButton5Click
  end
  object ListView1: TListView
    Left = 15
    Top = 8
    Width = 498
    Height = 217
    Checkboxes = True
    Columns = <
      item
        Caption = #26085#26399
        Width = 100
      end
      item
        Caption = #26102#38388
        Width = 100
      end
      item
        Caption = #20107#20214#25551#36848
        Width = 300
      end>
    GridLines = True
    RowSelect = True
    TabOrder = 4
    ViewStyle = vsReport
  end
  object PrintDialog1: TPrintDialog
    Left = 136
    Top = 230
  end
end