unit1.dfm

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

        BorderStyle = bsNone
        TabOrder = 0
        object imgShow: TImage
          Left = 3
          Top = 3
          Width = 278
          Height = 182
          ParentShowHint = False
          ShowHint = False
          OnMouseDown = imgShowMouseDown
        end
        object pk: TPanel
          Left = 0
          Top = 0
          Width = 41
          Height = 25
          Color = clActiveCaption
          TabOrder = 0
          Visible = False
          OnMouseDown = pkMouseDown
          OnMouseMove = pkMouseMove
          OnMouseUp = pkMouseUp
          object Memo1: TMemo
            Left = 8
            Top = 1
            Width = 32
            Height = 23
            Alignment = taCenter
            BevelInner = bvLowered
            BevelKind = bkFlat
            BevelOuter = bvRaised
            BorderStyle = bsNone
            Color = clNone
            Font.Charset = GB2312_CHARSET
            Font.Color = clWhite
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            MaxLength = 1
            ParentFont = False
            TabOrder = 0
            OnKeyDown = Memo1KeyDown
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #36827#31243#21015#34920
      ImageIndex = 3
      DesignSize = (
        476
        342)
      object ListBox1: TListBox
        Left = 8
        Top = 12
        Width = 457
        Height = 293
        Anchors = [akLeft, akTop, akRight, akBottom]
        Color = clNone
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 0
      end
      object Button2: TButton
        Left = 388
        Top = 313
        Width = 75
        Height = 25
        Anchors = [akRight, akBottom]
        Caption = #20851#38381#36827#31243
        TabOrder = 1
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 300
        Top = 313
        Width = 75
        Height = 25
        Anchors = [akRight, akBottom]
        Caption = #21047#26032#36827#31243
        TabOrder = 2
        OnClick = Button3Click
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 372
    Width = 669
    Height = 19
    Panels = <
      item
        Width = 50
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 372
    Align = alLeft
    Caption = 'Panel1'
    TabOrder = 2
    object ToolBar1: TToolBar
      Left = 1
      Top = 1
      Width = 183
      Height = 30
      AutoSize = True
      ButtonHeight = 28
      ButtonWidth = 30
      Caption = 'ToolBar1'
      Flat = True
      Images = ImageList1
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        Style = tbsSeparator
      end
      object UnLink: TToolButton
        Left = 8
        Top = 0
        Hint = #36827#20837#30417#21548#29366#24577
        Caption = 'UnLink'
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        Style = tbsCheck
        OnClick = UnLinkClick
      end
      object ToolButton3: TToolButton
        Left = 38
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 0
        Style = tbsSeparator
      end
      object ShowScr: TToolButton
        Left = 46
        Top = 0
        Hint = #24320#22987#23631#24149#30417#35270
        Caption = 'ShowScr'
        Enabled = False
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
        Style = tbsCheck
        OnClick = ShowScrClick
      end
      object ScrKz: TToolButton
        Left = 76
        Top = 0
        Hint = #24320#22987#38190#30424#25511#21046
        Caption = 'ScrKz'
        Enabled = False
        ImageIndex = 5
        ParentShowHint = False
        ShowHint = True
        Style = tbsCheck
        OnClick = ScrKzClick
      end
      object ToolButton6: TToolButton
        Left = 106
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 2
        Style = tbsSeparator
      end
      object ShutDown: TToolButton
        Left = 114
        Top = 0
        Hint = #20851#38381#30005#33041
        Caption = 'ShutDown'
        Enabled = False
        ImageIndex = 4
        ParentShowHint = False
        ShowHint = True
        OnClick = ShutDownClick
      end
    end
    object Panel2: TPanel
      Left = 1
      Top = 31
      Width = 183
      Height = 19
      Align = alTop
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      Caption = #23458#25143#31471#21015#34920
      TabOrder = 1
    end
    object ldrv: TListBox
      Left = 1
      Top = 50
      Width = 183
      Height = 321
      Align = alClient
      Color = clHotLight
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindow
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 2
    end
  end
  object SocketSvr: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnAccept = SocketSvrAccept
    OnClientDisconnect = SocketSvrDisconnect
    OnClientRead = SocketSvrRead
    OnClientError = SocketSvrError
    Left = 24
    Top = 64
  end
  object SocketScr: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnClientConnect = SocketScrClientConnect
    OnClientDisconnect = SocketScrClientDisconnect
    OnClientRead = SocketScrRead
    OnClientError = SocketScrClientError
    Left = 64
    Top = 64
  end
  object ImageList1: TImageList
    Height = 22
    Width = 23
    Left = 152
    Top = 64
    Bitmap = {
      494C010106000900040017001600FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      00000000000036000000280000005C000000420000000100200000000000E05E
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000000000