main.dfm

OPCSERVER的例子、是很好的学习例子

object fmMain: TfmMain
  Left = 119
  Top = 107
  Width = 785
  Height = 535
  Caption = 'Simple OPC Server'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = muMain
  OldCreateOrder = False
  Position = poDesktopCenter
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 209
    Top = 0
    Height = 459
  end
  object GroupView: TTreeView
    Left = 0
    Top = 0
    Width = 209
    Height = 459
    Align = alLeft
    Indent = 19
    PopupMenu = pmGroupView
    ReadOnly = True
    TabOrder = 0
    OnChange = GroupViewChange
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 459
    Width = 777
    Height = 22
    BiDiMode = bdRightToLeft
    Panels = <
      item
        Bevel = pbNone
        BiDiMode = bdRightToLeft
        ParentBiDiMode = False
        Text = 
          'Welcome to use OM_OPCSvr.dll to develop your OPC server! QQ: 250' +
          '561779'
        Width = 450
      end
      item
        Text = 'Client Num: 0'
        Width = 120
      end
      item
        Text = 'Tag Num: 0'
        Width = 120
      end>
    ParentBiDiMode = False
  end
  object TagView: TListView
    Left = 212
    Top = 0
    Width = 565
    Height = 459
    Align = alClient
    Columns = <
      item
        Caption = 'Name'
        MaxWidth = 100
        MinWidth = 100
        Width = 100
      end
      item
        Caption = 'Type'
        MaxWidth = 100
        MinWidth = 100
        Width = 100
      end
      item
        Caption = 'Simulation'
        MaxWidth = 100
        MinWidth = 100
        Width = 100
      end
      item
        Caption = 'Value'
        MaxWidth = 100
        MinWidth = 100
        Width = 100
      end
      item
        Caption = 'Description'
        MinWidth = 150
        Width = 150
      end>
    MultiSelect = True
    ReadOnly = True
    RowSelect = True
    PopupMenu = pmTagView
    TabOrder = 2
    ViewStyle = vsReport
    OnResize = TagViewResize
  end
  object muMain: TMainMenu
    Left = 224
    Top = 32
    object File1: TMenuItem
      Caption = 'File'
      object Exit1: TMenuItem
        Caption = 'Exit'
        Hint = 'Exit App'
        OnClick = Exit1Click
      end
    end
    object Server1: TMenuItem
      Caption = 'Server'
      object Register1: TMenuItem
        Caption = 'Register'
        Hint = 'Register OPC Server'
        OnClick = Register1Click
      end
      object Unregister1: TMenuItem
        Caption = 'Unregister'
        Hint = 'Unregister OPC Server'
        OnClick = Unregister1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object AddGroup1: TMenuItem
        Caption = 'Add Branch'
        Hint = 'Add Group'
        OnClick = AddGroup1Click
      end
      object AddTag1: TMenuItem
        Action = actAddTag
        Hint = 'Add Tag'
      end
    end
    object Help1: TMenuItem
      Caption = 'Help'
      object About1: TMenuItem
        Caption = 'About...'
        Hint = 'About...'
        OnClick = About1Click
      end
    end
  end
  object tmStatus: TTimer
    OnTimer = tmStatusTimer
    Left = 272
    Top = 32
  end
  object pmGroupView: TPopupMenu
    OnPopup = pmGroupViewPopup
    Left = 80
    Top = 32
    object Delete1: TMenuItem
      Caption = 'Delete'
      Enabled = False
      OnClick = Delete1Click
    end
  end
  object ActionList1: TActionList
    Left = 320
    Top = 32
    object actAddTag: TAction
      Category = 'Server'
      Caption = 'Add Tag'
      OnExecute = actAddTagExecute
      OnUpdate = actAddTagUpdate
    end
  end
  object pmTagView: TPopupMenu
    OnPopup = pmTagViewPopup
    Left = 144
    Top = 32
    object Delete2: TMenuItem
      Caption = 'Delete'
      Enabled = False
      OnClick = Delete2Click
    end
  end
  object tmRun: TTimer
    OnTimer = tmRunTimer
    Left = 368
    Top = 32
  end
  object tmTagView: TTimer
    Enabled = False
    OnTimer = tmTagViewTimer
    Left = 416
    Top = 32
  end
end