📄 servermain.dfm

📁 一个检测网络信息的程序.
💻 DFM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
            Font.Style = []
            Panels = <>
            SimplePanel = True
            UseSystemFont = False
          end
        end
      end
      object suiTabSheet2: TsuiTabSheet
        Left = 0
        Top = 34
        Width = 690
        Height = 360
        PageIndex = 1
        Caption = #26381#21153#22120#36873#39033#35774#32622
        TabVisible = True
        Color = 15198183
        TabOrder = 2
        PageControl = suiPageControl1
        object suiGroupBox2: TsuiGroupBox
          Left = 24
          Top = 8
          Width = 313
          Height = 129
          Caption = #24037#20316#29366#24577#35774#32622#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Transparent = True
          ParentColor = True
          ParentFont = False
          BorderColor = 8355711
          object suiCheckBox1: TsuiCheckBox
            Left = 16
            Top = 24
            Width = 155
            Height = 21
            UIStyle = MacOS
            Caption = #38543#35745#31639#26426#33258#21160#21551#21160#26381#21153#22120
            AutoSize = True
            Checked = False
            Transparent = True
            TabStop = True
            TabOrder = 0
            OnClick = suiCheckBox1Click
          end
          object suiCheckBox2: TsuiCheckBox
            Left = 16
            Top = 48
            Width = 263
            Height = 21
            UIStyle = MacOS
            Caption = #33258#21160#20445#23384#26381#21153#22120#30417#35270#35760#24405#65288#20445#23384#21040#20197#19979#25991#20214#65289
            AutoSize = True
            Checked = True
            Transparent = True
            TabStop = True
            TabOrder = 1
            OnClick = suiCheckBox2Click
          end
          object suiCheckBox3: TsuiCheckBox
            Left = 16
            Top = 96
            Width = 191
            Height = 21
            UIStyle = MacOS
            Caption = #26381#21153#22120#21551#21160#26102#33258#21160#33719#21462#26368#26032#29256#26412
            AutoSize = True
            Checked = False
            Transparent = True
            TabStop = True
            TabOrder = 2
            OnClick = suiCheckBox3Click
          end
          object suiEdit1: TsuiEdit
            Left = 40
            Top = 72
            Width = 225
            Height = 19
            BorderColor = 8355711
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlue
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 3
            Text = 'guardserver.txt'
            OnKeyDown = suiEdit1KeyDown
          end
        end
        object suiGroupBox3: TsuiGroupBox
          Left = 24
          Top = 144
          Width = 313
          Height = 201
          Caption = #25253#35686#36873#39033#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Transparent = True
          ParentFont = False
          BorderColor = 8355711
          object suiCheckBox4: TsuiCheckBox
            Left = 16
            Top = 24
            Width = 179
            Height = 21
            UIStyle = MacOS
            Caption = #24320#21551#25253#35686#21160#30011#65288#39134#32724#30340#22825#20351#65289
            AutoSize = True
            Checked = True
            Transparent = True
            TabStop = True
            TabOrder = 0
            OnClick = suiCheckBox4Click
          end
        end
        object suiGroupBox4: TsuiGroupBox
          Left = 344
          Top = 8
          Width = 313
          Height = 129
          Caption = #22312#32447#21319#32423#21151#33021#36873#39033#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Transparent = True
          ParentFont = False
          BorderColor = 8355711
          object Label6: TLabel
            Left = 24
            Top = 24
            Width = 262
            Height = 61
            AutoSize = False
            Caption = 
              '    '#27426#36814#20351#29992#12298#32593#21543#21736#20853#12299#22312#32447#33258#21160#21319#32423#65281#21033#29992#26412#31243#24207#21487#20197#33258#21160#20174#20316#32773#32593#31449#19978#33719#21462#26368#26032#29256#26412#12290#27880#24847#65306#26412#22312#32447#21319#32423#21151#33021#33258#21160#25903#25345#30452#25509#19978#32593#12289#36890#36807 +
              #20195#29702#26381#21153#22120#19978#32593#12289#36890#36807#32593#20851#20195#29702#19978#32593#31561#19977#31181#24120#35265#30340#32593#21543#35745#31639#26426#32593#32476#36830#25509#26041#24335#65292#26080#39035#20877#35774#32622#12290
            Color = clBtnFace
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlue
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentColor = False
            ParentFont = False
            Transparent = True
            WordWrap = True
          end
          object suiProgressBar1: TsuiProgressBar
            Left = 24
            Top = 104
            Width = 177
            Height = 12
            UIStyle = MacOS
            CaptionColor = clBlack
            ShowCaption = True
            SmartShowCaption = False
            Max = 100
            Min = 0
            Position = 0
            Orientation = suiHorizontal
            BorderColor = 8355711
            Color = 15198183
            Picture.Data = {
              07544269746D6170D6040000424DD60400000000000036040000280000000D00
              00000A0000000100080000000000A00000000000000000000000000100000000
              000000000000FFFFFF00B3390000DA9B7700DC9D7600DC9E7900DC9E7600DCA0
              7600DFA37600DFA47700DCA27500DEA27700DEA37700E0873B00DF8A4200E392
              4D00E3935000DFA77A00E08A3F00E08A4000DF8B4200E4914700E18E4700E391
              4A00EB974E00E1904A00E5944E00EC9A5200EE9B5300EB9B5500E5975300EC9D
              5800EFA25B00EEA05B00F9A86000FDAC6400EEA25E00EFA46000FBAC6500F0A5
              6100F0A66400FDAE6A00FBAD6900FFB36D00FEB26D00F3AA6800FDB26F00FFB4
              7100FFB47200FFB47300FFB67600FFBA7A00E5AD7B00E6AE7C00E0AA7A00E7B1
              7F00E9B38200E6B18000E9B48400EAB68800EAB88A00E7B68900E6B48800E6B5
              8800EAB98B00E6B68900E6B58A00E5B68A00E5B68C00EABB9100E9BB9100E7BA
              9100E6B99000EABD9400E9BD9500E9BD9600E7BC9400E7BC9500E7BD9600FFBD
              7B00E7B38200E5B38300EAB88900E7B98C00E6B88C00E7B98D00E7BA8E00E6BA
              8E00E7BB9100E6BB9200FFBB7100FFBC7400FFBC7600FFBF7A00FFC07D00FFC1
              7D00FFC28000FFC48100FFC78400FFC78700FFC87F00FFC88000FFC88200FFCC
              8700FFCD8900FFCC8B00FFCD8300FFCC8600FFCD8800FFCF8A00FFD08B00FFD0
              8700FFD28D00FFD38E00FFD39000FFD49000FFD49100FFD59300FFD69300FFD6
              9400FFD99A00FFD58900FFD89500FFDA9A00FFD88D00FFDA9300FFDB9000FFDF
              9700FFDF9800FFE09A00FFE19D00FFE39E00FFE6A200FFE7A3005C5C5C00FFFF
              FF009933CC009900FF00996600009966330099336600996699009966CC009933
              FF009999330099996600999999009999CC009999FF0099CC000099CC330066CC
              660099CC990099CCCC0099CCFF0099FF000099FF330099CC660099FF990099FF
              CC0099FFFF00CC00000099003300CC006600CC009900CC00CC0099330000CC33
              3300CC336600CC339900CC33CC00CC33FF00CC660000CC66330099666600CC66
              9900CC66CC009966FF00CC990000CC993300CC996600CC999900CC99CC00CC99
              FF00CCCC0000CCCC3300CCCC6600CCCC9900CCCCCC00CCCCFF00CCFF0000CCFF
              330099FF6600CCFF9900CCFFCC00CCFFFF00CC003300FF006600FF009900CC33
              0000FF333300FF336600FF339900FF33CC00FF33FF00FF660000FF663300CC66
              6600FF669900FF66CC00CC66FF00FF990000FF993300FF996600FF999900FF99
              CC00FF99FF00FFCC0000FFCC3300FFCC6600FFCC9900FFCCCC00FFCCFF00FFFF
              3300CCFF6600FFFF9900FFFFCC006666FF0066FF660066FFFF00FF666600FF66
              FF00FFFF66002100A5005F5F5F00777777008686860096969600CBCBCB00B2B2
              B200D7D7D700DDDDDD00E3E3E300EAEAEA00F1F1F100F8F8F800F0FBFF00A4A0
              A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
              FF0083837D7D7D707C7D7D7B838484000000757569696A646A6A707075757B00
              000061615F4F5B5B5B4F5F61616169000000312C2C29232323292C3131314F00
              00002824241F1D181D1D242428282D0000001A1A1514160D1214161A1A1E1E00
              00003B3A5151373434513A4440404000000049575744445144445757494C4900
              00004C4C4C4C5744444C4C4C494C490000000A0A0A04040405040A0A0A113400
              0000}
            Visible = False
          end
          object suiButton9: TsuiButton
            Left = 216
            Top = 96
            Width = 56
            Height = 23
            UIStyle = MacOS
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlue
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            Caption = #24320' '#22987
            AutoSize = False
            ParentFont = False
            TabOrder = 1
            Transparent = False
            ModalResult = 0
            Layout = blGlyphLeft
            Spacing = 4
            ResHandle = 0
            OnClick = suiButton9Click
          end
        end
        object suiGroupBox5: TsuiGroupBox
          Left = 344
          Top = 144
          Width = 313
          Height = 201
          Caption = #20854#20182#36873#39033#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Transparent = True
          ParentFont = False
          BorderColor = 8355711
        end
      end
    end
  end
  object ServerSocket1: TServerSocket
    Active = False
    Port = 10240
    ServerType = stNonBlocking
    OnListen = ServerSocket1Listen
    OnGetSocket = ServerSocket1GetSocket
    OnClientConnect = ServerSocket1ClientConnect
    OnClientDisconnect = ServerSocket1ClientDisconnect
    OnClientRead = ServerSocket1ClientRead
    OnClientError = ServerSocket1ClientError
    Left = 600
    Top = 264
  end
  object AutoUpgrader: TAutoUpgrader
    Active = False
    InfoFile.DlgCaption = #12298#32593#32476#21736#20853#12299#26381#21153#22120#31471
    InfoFile.DlgMessage = 
      #27426#36814#20351#29992#12298#32593#21543#21736#20853#12299#26381#21153#22120#31471#22312#32447#33258#21160#21319#32423#65281#13#10#13#10#21033#29992#26412#31243#24207#21487#20197#33258#21160#20174#20316#32773#32593#31449#19978#33719#21462#26368#26032#29256#26412#12290#13#10#13#10#31243#24207#24050#32463#20174#20316#32773#32593#31449#19978#25214#21040#26368 +
      #26032#29256#26412#12290#13#10#20320#30830#23450#35201#20174#20316#32773#32593#31449#19978#33258#21160#19979#36733#26412#31243#24207#30340#26368#26032#29256#26412#21527#65311#13#10#13#10#25353#8220#26159#8221#24320#22987#19979#36733#26368#26032#29256#26412#65292#25353#8220#21542#8221#21017#19981#19979#36733#26368#26032#13#10#29256#26412#24182#36864#20986 +
      #26412#21151#33021#12290
    InfoFile.SoftwareURL = 'http://cd37.vicp.net/zip/'#21736#20853#26381#21153#22120'.exe'
    InfoFile.UpgradeMethod = umAutoUpgrade
    VersionControl = byDate
    VersionDate = '08/05/2003'
    VersionDateAutoSet = True
    OnProgress = AutoUpgraderProgress
    OnDone = AutoUpgraderDone
    OnError = AutoUpgraderError
    OnNoUpdateAvailable = AutoUpgraderNoUpdateAvailable
    OnUpgrade = AutoUpgraderUpgrade
    Left = 624
    Top = 120
  end
end
上一页 1 23
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -