main.dfm.~47~

给出一个工业ＰＬＣ联网监控的例子

object frmMain: TfrmMain
  Left = 146
  Top = 115
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'PWS'#31995#21015#20154#26426#30028#38754#38598#32676#30417#25511#31995#32479
  ClientHeight = 442
  ClientWidth = 632
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020100001000400E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    8000000000000000000000800000000080000000000000000000008000000000
    8000000000000000000000800000000080000000000000000000008800000000
    8000000000000000000000080000000080000888888000000088070888800000
    8000800000880000000000000088000080080000000880000788888888080000
    80008000000080000F7777777808000080008000000080000F77777778080000
    80008000000088000F7777777808000080008000000008800F77777778080000
    80008000007880800F777777780800008000800000F780800F77777778080000
    8800880000F780800F777777780800000800080000F780800FFFFFFFF7000007
    0807088000F7808000000000000000000000008800F780800007080708000788
    8888880800F780800000000000000F777777780800F780800000800080000F77
    7777780800F780800000800080000F777777780800FFF0000000800080000F77
    77777808000000000000800080000F7777777808000080000000800080000F77
    77777808000080000000800080000F7777777808000088000000800080000FFF
    FFFFF70000000888880800008000000000000000000000000080000080000000
    0708000000000000000000008000000000000000000000000000000080000000
    008000000000000000000000800000000080000000000000000000000000E7FF
    FF9FE7FFFF9FE7FFFF9FE7FFFF8FE7FFFF0FE781FC01E700F800E67C7000E67E
    7000E67E7000E67E3000E67C1000E6781000E6781000E2381000C0381001C018
    180380081C0300081C4700081E6700081E6700083E67000C7E67000E7E67000E
    7E67000E3E67001F00E7803F81E7F0FFFFE7F1FFFFE7F9FFFFE7F9FFFFEF}
  Menu = meuMain
  OldCreateOrder = False
  Position = poDesigned
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object RzURLLabel1: TRzURLLabel
    Left = 74
    Top = 52
    Width = 62
    Height = 13
    Caption = 'RzURLLabel1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clHighlight
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsUnderline]
    ParentFont = False
    Visible = False
    URL = 'http://127.0.0.1'
  end
  object SB1: TStatusBar
    Left = 0
    Top = 423
    Width = 632
    Height = 19
    Panels = <
      item
        Alignment = taCenter
        Text = #29992#25143
        Width = 30
      end
      item
        Alignment = taCenter
        Text = #26410#30331#24405
        Width = 50
      end
      item
        Alignment = taCenter
        Text = #31867#22411
        Width = 30
      end
      item
        Alignment = taCenter
        Text = #24453#30830#35748
        Width = 70
      end
      item
        Alignment = taCenter
        Text = #31471#21475
        Width = 30
      end
      item
        Alignment = taCenter
        Text = #26410#23450#20041
        Width = 50
      end
      item
        Alignment = taCenter
        Text = #27874#29305#29575
        Width = 50
      end
      item
        Alignment = taCenter
        Text = #26410#23450#20041
        Width = 50
      end
      item
        Alignment = taCenter
        Text = #36816#34892#29366#24577
        Width = 55
      end
      item
        Alignment = taCenter
        Text = #21551#21160#20013'......'
        Width = 150
      end>
  end
  object RzToolbar1: TRzToolbar
    Left = 0
    Top = 0
    Width = 632
    Height = 29
    AutoStyle = False
    Images = imgList
    BorderInner = fsNone
    BorderOuter = fsGroove
    BorderSides = [sdTop, sdBottom]
    BorderWidth = 0
    TabOrder = 0
    ToolbarControls = (
      btnToolLogin
      RzSpacer1
      btnStart
      btnStop
      RzSpacer2
      RzSpacer3
      btnClose
      RzSpacer4
      Panel3)
    object btnToolLogin: TRzToolButton
      Left = 4
      Top = 2
      ImageIndex = 3
      OnClick = btnToolLoginClick
    end
    object RzSpacer1: TRzSpacer
      Left = 29
      Top = 2
    end
    object btnStart: TRzToolButton
      Left = 37
      Top = 2
      AllowAllUp = True
      ImageIndex = 49
      OnClick = meuStartClick
    end
    object btnStop: TRzToolButton
      Left = 62
      Top = 2
      ImageIndex = 51
      OnClick = meuStopClick
    end
    object RzSpacer2: TRzSpacer
      Left = 87
      Top = 2
    end
    object RzSpacer3: TRzSpacer
      Left = 95
      Top = 2
    end
    object btnClose: TRzToolButton
      Left = 103
      Top = 2
      Hint = #36864#20986#31995#32479
      ImageIndex = 8
      Caption = #36864#20986
      ParentShowHint = False
      ShowHint = True
      OnClick = N5Click
    end
    object RzSpacer4: TRzSpacer
      Left = 128
      Top = 2
    end
    object Panel3: TPanel
      Left = 136
      Top = 2
      Width = 485
      Height = 25
      BevelOuter = bvNone
      TabOrder = 0
      object PB1: TProgressBar
        Left = 12
        Top = 4
        Width = 433
        Height = 17
        Max = 22
        Position = 5
        TabOrder = 0
      end
      object lblRecived: TEdit
        Left = 420
        Top = 3
        Width = 21
        Height = 20
        Color = clBtnFace
        Enabled = False
        TabOrder = 1