unit1.dfm

经过研究本人初略的将原代码进行了模拟

      Caption = #26381#21153#31471#35774#32622
      ImageIndex = 1
      DesignSize = (
        476
        342)
      object Label4: TLabel
        Left = 8
        Top = 24
        Width = 60
        Height = 12
        Caption = #30417#21548#31471#21475#65306
      end
      object Label5: TLabel
        Left = 8
        Top = 104
        Width = 72
        Height = 12
        Caption = #26381#21153#22120#20449#24687#65306
      end
      object Label6: TLabel
        Left = 8
        Top = 60
        Width = 84
        Height = 12
        Caption = #36755#20837#32593#32476#22320#22336#65306
      end
      object SendUrl: TSpeedButton
        Left = 336
        Top = 56
        Width = 55
        Height = 22
        Caption = #21457#36865
        Flat = True
        OnClick = SendUrlClick
      end
      object SpeedButton1: TSpeedButton
        Left = 396
        Top = 56
        Width = 57
        Height = 22
        Caption = #20840#37096#21457#36865
        Flat = True
        OnClick = SpeedButton1Click
      end
      object MemoMsg: TMemo
        Left = 8
        Top = 128
        Width = 466
        Height = 206
        Anchors = [akLeft, akTop, akRight, akBottom]
        Color = clInfoText
        Font.Charset = GB2312_CHARSET
        Font.Color = clSilver
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 2
      end
      object ePort: TEdit
        Left = 80
        Top = 20
        Width = 65
        Height = 20
        TabOrder = 0
        Text = '2008'
        OnKeyPress = EdtPortKeyPress
      end
      object UrlDown: TEdit
        Left = 96
        Top = 57
        Width = 233
        Height = 20
        TabOrder = 1
      end
    end
    object tscr: TTabSheet
      Caption = #23631#24149#35774#32622
      object GrupBxScrSet: TGroupBox
        Left = 10
        Top = 12
        Width = 381
        Height = 157
        Caption = #23631#24149#30417#35270#35774#32622
        Color = clBtnFace
        ParentColor = False
        TabOrder = 0
        object CmdSave: TSpeedButton
          Left = 292
          Top = 120
          Width = 73
          Height = 25
          Caption = #20445#23384
          Flat = True
          OnClick = CmdSaveClick
        end
        object Label1: TLabel
          Left = 16
          Top = 52
          Width = 60
          Height = 12
          Caption = #21387#32553#29575#65306'50'
        end
        object Label2: TLabel
          Left = 16
          Top = 28
          Width = 60
          Height = 12
          Caption = #30011#38754#36136#37327#65306
        end
        object Label3: TLabel
          Left = 224
          Top = 28
          Width = 36
          Height = 12
          Caption = #31471#21475#65306
        end
        object TrckBrSd: TTrackBar
          Left = 8
          Top = 72
          Width = 361
          Height = 45
          Ctl3D = True
          LineSize = 10
          Max = 100
          ParentCtl3D = False
          PageSize = 5
          Frequency = 10
          TabOrder = 3
          TabStop = False
          OnChange = TrckBrSdChange
        end
        object RdbtnL: TRadioButton
          Left = 84
          Top = 26
          Width = 45
          Height = 17
          Caption = #24213
          Checked = True
          TabOrder = 1
          TabStop = True
        end
        object RdbtnH: TRadioButton
          Left = 144
          Top = 26
          Width = 41
          Height = 17
          Caption = #39640
          TabOrder = 2
        end
        object EdtPort: TEdit
          Left = 272
          Top = 24
          Width = 81
          Height = 20
          TabOrder = 0
          OnKeyPress = EdtPortKeyPress
        end
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 184
        Width = 385
        Height = 145
        Caption = #25130#22270'/'#24405#35937
        TabOrder = 1
        object lbl1: TLabel
          Left = 12
          Top = 28
          Width = 60
          Height = 12
          Caption = #20445#23384#36335#24452#65306
        end
        object lbl2: TLabel
          Left = 12
          Top = 68
          Width = 60
          Height = 12
          Caption = #22270#35937#36136#37327#65306
        end
        object lbl3: TLabel
          Left = 12
          Top = 100
          Width = 42
          Height = 12
          Caption = #24103'/'#31186#65306
        end
        object edt1: TEdit
          Left = 88
          Top = 24
          Width = 261
          Height = 20
          TabOrder = 0
          Text = 'd:\01.avi'
        end
        object btn1: TButton
          Left = 276
          Top = 56
          Width = 75
          Height = 25
          Caption = #24320#22987#24405#35937
          TabOrder = 1
          OnClick = btn1Click
        end
        object btn2: TButton
          Left = 276
          Top = 92
          Width = 75
          Height = 25
          Caption = #20572#27490#24405#35937
          Enabled = False
          TabOrder = 3
          OnClick = btn2Click
        end
        object cbb1: TComboBox
          Left = 88
          Top = 64
          Width = 101
          Height = 20
          Style = csDropDownList
          ItemHeight = 12
          ItemIndex = 0
          TabOrder = 2
          Text = '8'#20301
          Items.Strings = (
            '8'#20301
            '16'#20301
            '24'#20301
            '32'#20301)
        end
        object cbb2: TComboBox
          Left = 88
          Top = 96
          Width = 101
          Height = 20
          Style = csDropDownList
          ItemHeight = 12
          ItemIndex = 1
          TabOrder = 4
          Text = '5'
          Items.Strings = (
            '1'
            '5'
            '10')
        end
      end
    end
    object TabSheet1: TTabSheet
      Caption = #36828#31243#23631#24149
      ImageIndex = 2
      object sbx: TScrollBox
        Left = 0
        Top = 0
        Width = 476
        Height = 342
        Align = alClient