main.dfm

DELPHI编写OPC(一)： 编写OPC客户端程序

object FMain: TFMain
  Left = 220
  Top = 130
  BorderStyle = bsNone
  Caption = 'FMain'
  ClientHeight = 340
  ClientWidth = 529
  Color = clWindow
  Ctl3D = False
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Button2: TButton
    Left = 376
    Top = 24
    Width = 75
    Height = 25
    Caption = #38577#34255
    TabOrder = 0
  end
  object FlatPanel1: TFlatPanel
    Left = 0
    Top = 18
    Width = 201
    Height = 303
    Color = 16769738
    ColorHighLight = clBlack
    ColorShadow = clWhite
    TabOrder = 1
    object RzGroupBox1: TRzGroupBox
      Left = 1
      Top = 25
      Width = 199
      Height = 80
      Align = alTop
      BorderInner = fsFlatBold
      Color = clSkyBlue
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      GroupStyle = gsCustom
      ParentFont = False
      TabOrder = 0
      OnMouseMove = RzGroupBox1MouseMove
      object RzComboBox1: TRzComboBox
        Left = 16
        Top = 10
        Width = 161
        Height = 21
        Style = csDropDownList
        Ctl3D = False
        FlatButtons = True
        FrameVisible = True
        ItemHeight = 13
        ParentCtl3D = False
        TabOrder = 0
      end
      object FlatButton2: TFlatButton
        Left = 16
        Top = 40
        Width = 73
        Height = 25
        Caption = '&Connect'
        TabOrder = 1
        OnClick = FlatButton2Click
      end
      object FlatButton3: TFlatButton
        Left = 96
        Top = 40
        Width = 81
        Height = 25
        Caption = '&UnConnect'
        Enabled = False
        TabOrder = 2
        OnClick = FlatButton3Click
      end
    end
    object RzPanel1: TRzPanel
      Left = 1
      Top = 1
      Width = 199
      Height = 24
      Align = alTop
      BorderInner = fsFlat
      BorderOuter = fsNone
      Caption = 'PLC Server Explorer'
      Color = 16742667
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object RzPanel2: TRzPanel
      Left = 1
      Top = 105
      Width = 199
      Height = 25
      Align = alTop
      BorderOuter = fsNone
      Caption = 'Group'
      Color = 16742667
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
    object RzListView1: TRzListView
      Left = 1
      Top = 130
      Width = 199
      Height = 172
      Align = alClient
      Columns = <>
      TabOrder = 3
      ViewStyle = vsReport
    end
  end
  object Panel5: TFlatPanel
    Left = 201
    Top = 19
    Width = 328
    Height = 302
    ParentColor = True
    ColorHighLight = clWhite
    ColorShadow = clDefault
    TabOrder = 2
    OnMouseMove = Panel5MouseMove
    object Image4: TImage
      Left = 14
      Top = 8
      Width = 33
      Height = 33
      Picture.Data = {
        07544269746D6170360C0000424D360C00000000000036000000280000002000
        0000200000000100180000000000000C00000000000000000000000000000000
        0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF010000160A04291309150A
        05010000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF050201361C0C8B59324D2612210F
        07010000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0E0602401E0BD3A270DFAA7250250E200E
        07010000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFF130803461E09B98A5CF3CCA1D6A16E48200C1E0D
        06FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFF0B0502431E0BBE9165E0BA91F9CFA5D5A171441E0A1C0C
        06000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF040201
        0502010401000F06023110037E5035D3B28CE6BE94FBD2A7D7A87C48200C2C13
        08170B050C0502030100FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF040201110702210C02
        361708502C175E351E744A31B39071CCAA89ECC399F4CBA2CEA5806133173A11
        00391708361A0C241108110804030100FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0D0501200B015B351D815738
        A37E5FBC9A79BC9B7BBF9F7FC0A081CDAD8AEEC69FECC39CD4AF8AB9926C8E62
        3F7B4B28431705421A0937190B2211080C0502FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFF010000180A0350301DB18C67BFA285C4AA8D
        C4AA8BC7A685CAAA86CCAB89D3B291E7C29FFCD4ADF3CDA6DBB896CFAF90CBAC
        89C5A580B48A607143264F210C421B0A30170B130904010000FFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFF000000221007A5805DC6AD8CC3AD95CAAE94D3B598
        D8BA9BE5C5A5F5D5B1F9D9B6FADBB8FFE3BEFFE7C0FFE2BBF8D5B0E4C19ED7B5
        93CCAD8FCAAD8ECBA983AC7F56542710421A08371A0C160A05010000FFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFF3C2718BD9C7AC5B098C8B198D6BA9EE6C7A9F6D4B3
        FFE1BEF8D2B0F1C19DFFD8B1FAD0A9F6CAA4F6CAA3FFE5BDFFD0A7F7CDA7F8D5
        B1E8C5A1DABA98CFB191CEB092BE956F734324451D0934180C120804FFFFFFFF
        FFFFFFFFFFFFFFFF2C1D12C5A888C2AE99CEB49DE1C6ABF6D7B9FFE1C2FFE4C4
        FFF3D3CF9F7C6607009A2700BE501BCC5F2BCC5D28BD4E1A8F3002DAA880FFE7
        C3FFDCB8F8D3AFE6C3A2D3B595CDB294C6A0786D3F224119082E160A090402FF
        FFFFFFFFFF040100BFA283C2B09CCCB7A2E3CAB1FADEC2FFE7C8FFE4C6FFE3C5
        FFE5C7FFE8CAF4D9BA893E189A2E00A63E0A9930038D431CF1D8B6FFE5C3FFDF
        BFFFE0BBFFDFBCFEDAB6E8C7A7D4B799CDB396C09A7352240E411C0C1D0E0701
        0000FFFFFF806650CABAA7CCB8A5E3CCB3FDE1C6FFE9CDFFE5C9FFE4C8FFE4C6
        FFE4C8FFEBCDFFFBDF9F6442841900972A007E1800C18D69FFFFE1FFE4C4FFE1
        C0FFDEBCFFDEBDFFE1BFFDDCB9E8C7AAD5B99ED8BD9EA77C5645180630160A09
        04020D0804D6C0A7CABAA9DFC9B4FBE0C9FFE9D1FFE8CDFFE6CDFFE6CAFFE5CB
        FFE4CAFFE9CEFFF4DC9B613E851D009C3000811C00CA9774FFF6DAFFE3C6FFE2
        C3FFE1C2FFE1C1FFE0C0FFE2C0FDDDBBE7C9ACD7BFA3D4B592693B2038160717
        0B054E3E31C9BCAAD5C4B1F1DAC7FFECD4FFEAD3FFE8CFFFE8D0FFE8CEFFE7CF
        FFE7CDFFEBD2FFF6DE9B6140861D009C3000821C00C89675FFF8DFFFE5C9FFE3
        C6FFE1C4FFE3C5FFE0C4FFE3C5FFE4C6F6D8B9E0C5ABDEC6AB956D5142170522
        1007C2AC95CDBFB2E2D0BEFCE9D2FFEED7FFEAD5FFEBD4FFEAD2FFEAD3FFE7D2
        FFE9D1FFEDD5FFF8E19B6241861D009D3000821B00C89777FFFBE3FFE7CDFFE3
        CAFFE4C9FFE4C7FFE2C8FFE3C7FFE5C9FFE2C5EBCFB4DEC6B0D8B6934B210C24
        1007C4B2A2D3C6B8EEDBCCFFF0DDFFEEDBFFECDAFFECD8FFECD7FFEBD7FFEBD4
        FFEBD5FFEFD9FFFAE69B6142861C009C3000821A00C89879FFFCE6FFE9D0FFE7
        CEFFE6CBFFE4CAFFE6CCFFE5CBFFE5CAFFE8CDF5DAC1E3CCB5E2C6A94A220D23
        1006C4B9ABD6C8BCF1E1D1FFF3E1FFF0DDFFEEDCFFEEDCFFEDDBFFEDDAFFEDD9
        FFEDD8FFF0DCFFFBEB9B6343851D009C3000821A00C89A7BFFFEE9FFEBD3FFE8
        CFFFE8D0FFE6D0FFE8CDFFE7CEFFE7CDFFEBD1F9E0C7E4CEB6E6CFB74B220E23
        1006C5BBAFD6C9BEF2E4D6FFF4E5FFF0E1FFF0E0FFEFDFFFEFDFFFEFDEFFEFDD
        FFEFDDFFF4E3FFFFF4A26C4D871C009D3000821A00C89A7CFFFFEDFFECD7FFEA
        D5FFE8D4FFE9D1FFE9D1FFE9D2FFE7D1FFEDD6F9E1CAE4CEB8E7D3BD4B220F23
        1006C5BAB0D7CDC3F3E6DAFFF7EAFFF3E5FFF2E4FFF1E3FFF1E3FFEFE2FFF2E2
        FFF4E4FFFFF5FFFFF593471F9226009F3000841900C99C7FFFFFF2FFEEDBFFED
        D8FFECD7FFEBD5FFEBD4FFE9D4FFE9D3FFF1DAF9E4CEE6D3BDE6D4BD49200C20
        0E06CABFB3DAD3CAF3E8DEFFFAEEFFF7EBFFF2E6FFF2E7FFF4E7FFF3E5FFF5E7
        FFFBEFC89F87812C047C0B008A1C008D20006D0A00C0957AFFFFF5FFF0DEFFEE
        DCFFEDDBFFEDDAFFEDD8FFEAD8FFEBD7FFF8E4FAE8D5EBD8C7E7D2BB401C0B15
        0904BBAE9EDDD8D2EEE5DFFFFBF2FFFBF1FFF4EBFFF6EBFFF3EAFFF3E9FFF7EB
        FFFBEFA781696F371E84492B854F316D33134F1100BD9C88FFFFF5FFF1E3FFF0
        E0FFEFDDFFEFDEFFEEDCFFEBDAFFF3E1FFFEEDF9E5D3F2E2D2E1C7AC30130609
        04013C342DDAD7D4E8E1DBFBF3ECFFFFFDFFF8EFFFF8EDFFF7EEFFF7EDFFF8ED
        FFF9F0FFFFF9FFFFF6FFFFF9FFFFFEFFFEF5FBF1E5FFF7E9FFF7E9FFF3E5FFF2
        E4FFF1E3FFF0E1FFEFE0FFF0DFFFFFF6FFF9E9F3E1D2FEF2E182604B16060001
        0000040303DAD0C7E0DEDCF1EBE4FFFFFDFFFFFFFFF8F2FFF7F0FFF9F1FFF9F0
        FFF9F0FFFCF3FFFFFAFFFFFFFFFFFFFFFFF7FFFFFFFFFFF7FFF6EAFFF4E8FFF4
        E8FFF4E6FFF1E4FFF2E1FFFFF4FFFFFFF9EBDCF6EADEECDBC53E2315060200FF
        FFFFFFFFFF645B53DEDEDCE9E5E2F8F2EDFFFFFFFFFFFFFFFBF5FFF9F2FFFAF4
        FFF9F3FFFDF6FFFFFFC79D85AA491AE38551C98763FFFFFAFFFCF4FFF7EDFFF5
        EAFFF3E9FFF5E9FFFEF8FFFFFFFCF4E9F5E9DDFFF8EB8B6F590B0300FFFFFFFF
        FFFFFFFFFFFFFFFFAAA095E2E3E3EBE8E6F9F4F1FFFFFFFFFFFFFFFDFAFFFAF5
        FFFCF6FFFFFFF3EAE36208009C2F00DF864EA32F00D4AE99FFFFFFFFF9F1FFF6
        ECFFFAF1FFFFFFFFFFFFFDF7EFF5EBE1FCF6EED2BBA6100400000000FFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFC5BCB2E2E5E6EBEAE9FAF8F3FFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFDFD1C9480000841B008D1A00630000B48A70FFFFFFFFFFFAFFFF
        FFFFFFFFFFFFFFFEF9F4F6EDE7FFFBF8EEDCCA21130BFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFF010101A49A90E7E7E8EEF0F0F6F5F4FEFEFDFFFFFF
        FFFFFFFFFFFFFFFFFF78523D3B00003D0000571D02FAFAF7FFFFFFFFFFFFFFFF
        FFFFFFFCFDF7F1F9F6F2FFFFFBB7A698180E08FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF78736EEAE6E2F5F9FBF6F8FAF8F8F6
        FCFCFBFFFFFFFFFFFFFFFFFFCAC2BBBDAFAAF6F7F4FFFFFFFFFFFFFFFDFBFDF9
        F6FCFAF9FFFFFFFEF9F1715F53FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7D736DDCD4CEF2F4F5
        F0F3F5F5F6F7FCFCFDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEF9F9F9F7F8F8FFFF
        FFFDFAF478695F090402FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0B0908343230
        988E83DED9D3E5E3E3E4E4E4E4E5E5E4E5E5E5E4E5E7E4E3E5DFD8A89E942921
        1B0A0503FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFF}
      Transparent = True
    end
    object Label4: TLabel
      Left = 8
      Top = 76
      Width = 44
      Height = 13
      AutoSize = False
      Caption = #21046#20116#35506
    end
    object Label5: TLabel
      Left = 8
      Top = 105
      Width = 44
      Height = 17
      AutoSize = False
      Caption = #21046#22235#35506
    end
    object Label6: TLabel
      Left = 9
      Top = 135
      Width = 45
      Height = 13
      AutoSize = False
      Caption = #21046#19977#35506
    end
    object Label7: TLabel
      Left = 8
      Top = 164
      Width = 49
      Height = 13
      AutoSize = False
      Caption = #21046#20108#35506
    end
    object Shape1: TShape
      Left = 4
      Top = 51
      Width = 49
      Height = 19
      Brush.Color = clInactiveCaptionText
    end
    object RzSeparator1: TRzSeparator
      Left = 8
      Top = 44
      Width = 313
      Height = 3
      ShowGradient = True
      ParentColor = False
    end
    object Label1: TLabel
      Left = 14
      Top = 55
      Width = 31
      Height = 13
      AutoSize = False
      Caption = #35506#21029
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Shape2: TShape
      Left = 52
      Top = 51
      Width = 49
      Height = 19
      Brush.Color = clInactiveCaptionText
    end
    object Label2: TLabel
      Left = 65
      Top = 55
      Width = 25
      Height = 13
      AutoSize = False
      Caption = 'VB0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Shape3: TShape
      Left = 100
      Top = 51
      Width = 45
      Height = 19
      Brush.Color = clInactiveCaptionText
    end
    object Label3: TLabel
      Left = 109
      Top = 55
      Width = 27
      Height = 13
      AutoSize = False
      Caption = 'VB1'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]