unitmsgsend.dfm

delphi写的基于server和client的聊天源码 有参考意义

object frmmsgsend: Tfrmmsgsend
  Left = 102
  Top = 56
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #28040#24687#21457#36865
  ClientHeight = 456
  ClientWidth = 623
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel
    Left = 21
    Top = 412
    Width = 52
    Height = 13
    Caption = #21457#36865#28040#24687
    Transparent = True
  end
  object SpeedButton1: TSpeedButton
    Left = 494
    Top = 398
    Width = 93
    Height = 53
    Caption = #21457#36865#28040#24687
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500000000055
      555557777777775F55550FFFFFFFFF0555557F5555555F7FFF5F0FEEEEEE0000
      05007F555555777775770FFFFFF0BFBFB00E7F5F5557FFF557770F0EEEE000FB
      FB0E7F75FF57775555770FF00F0FBFBFBF0E7F57757FFFF555770FE0B00000FB
      FB0E7F575777775555770FFF0FBFBFBFBF0E7F5575FFFFFFF5770FEEE0000000
      FB0E7F555777777755770FFFFF0B00BFB0007F55557577FFF7770FEEEEE0B000
      05557F555557577775550FFFFFFF0B0555557FF5F5F57575F55500F0F0F0F0B0
      555577F7F7F7F7F75F5550707070700B055557F7F7F7F7757FF5507070707050
      9055575757575757775505050505055505557575757575557555}
    NumGlyphs = 2
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 494
    Top = 345
    Width = 93
    Height = 29
    Caption = #20844#21578#26495
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555500000000
      0555555F7777777775F55500FFFFFFFFF0555577F5FFFFFFF7F550F0FEEEEEEE
      F05557F7F777777757F550F0FFFFFFFFF05557F7F5FFFFFFF7F550F0FEEEEEEE
      F05557F7F777777757F550F0FF777FFFF05557F7F5FFFFFFF7F550F0FEEEEEEE
      F05557F7F777777757F550F0FF7F777FF05557F7F5FFFFFFF7F550F0FEEEEEEE
      F05557F7F777777757F550F0FF77F7FFF05557F7F5FFFFFFF7F550F0FEEEEEEE
      F05557F7F777777757F550F0FFFFFFFFF05557F7FF5F5F5F57F550F00F0F0F0F
      005557F77F7F7F7F77555055070707070555575F7F7F7F7F7F55550507070707
      0555557575757575755555505050505055555557575757575555}
    NumGlyphs = 2
    ParentFont = False
    OnClick = SpeedButton2Click
  end
  object Label2: TLabel
    Left = 21
    Top = 359
    Width = 52
    Height = 13
    Caption = #24050#25910#28040#24687
    Transparent = True
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 625
    Height = 313
    BevelOuter = bvNone
    Color = clCream
    TabOrder = 0
    object lview: TListView
      Left = 101
      Top = 52
      Width = 520
      Height = 257
      BorderStyle = bsNone
      Color = 16580588
      Columns = <
        item
          Caption = #29992#25143'IP'
          Width = 80
        end
        item
          Alignment = taCenter
          Caption = #26426#22120#21517
          Width = 70
        end
        item
          Alignment = taCenter
          Caption = #24215#38754#32534#21495
          Width = 70
        end
        item
          Alignment = taCenter
          Caption = #28040#24687
          Width = 300
        end
        item
          Alignment = taCenter
          Caption = #21457#36865#26102#38388
          Width = 80
        end
        item
          Alignment = taCenter
          Caption = #25910#21457#29366#24577
          Width = 100
        end>
      FlatScrollBars = True
      GridLines = True
      ReadOnly = True
      RowSelect = True
      ParentShowHint = False
      PopupMenu = PopupMenu2
      ShowHint = False
      TabOrder = 0
      ViewStyle = vsReport
      OnClick = lviewClick
      OnCustomDrawItem = lviewCustomDrawItem
    end
    object Panel2: TPanel
      Left = 8
      Top = 8
      Width = 609
      Height = 36
      BevelOuter = bvNone
      Color = 16772335
      TabOrder = 1
      object Label1: TLabel
        Left = 16
        Top = 9
        Width = 76
        Height = 19
        Caption = #28040#24687#27983#35272
        Font.Charset = GB2312_CHARSET
        Font.Color = clGray
        Font.Height = -19
        Font.Name = #21326#25991#26032#39759
        Font.Style = []
        ParentFont = False
      end
      object lbhelp: TLabel
        Left = 504
        Top = 9
        Width = 38
        Height = 19
        Caption = #24110#21161
        Font.Charset = GB2312_CHARSET
        Font.Color = clGray
        Font.Height = -19
        Font.Name = #21326#25991#26032#39759
        Font.Style = []
        ParentFont = False
        OnClick = lbhelpClick
        OnMouseEnter = lbhelpMouseEnter
        OnMouseLeave = lbhelpMouseLeave
      end
    end
    object Listvip: TListView
      Left = 2
      Top = 55
      Width = 97
      Height = 251
      Hint = #36873#25321#28040#24687#25509#21463#22320#22336
      Color = clCream
      Columns = <>
      FullDrag = True
      HotTrack = True
      IconOptions.WrapText = False
      LargeImages = ImageList1
      ReadOnly = True
      RowSelect = True
      ParentShowHint = False
      ShowHint = True
      SortType = stText
      TabOrder = 2
      OnClick = ListvipClick
    end
  end
  object mmsgmemo: TMemo
    Left = 80
    Top = 395
    Width = 406
    Height = 53
    ScrollBars = ssVertical
    TabOrder = 1
    OnKeyDown = mmsgmemoKeyDown
  end
  object mgetmsg: TMemo
    Left = 80
    Top = 340
    Width = 406
    Height = 53
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object edtmsguser: TLabeledEdit
    Left = 80
    Top = 317
    Width = 401
    Height = 21
    EditLabel.Width = 52
    EditLabel.Height = 13
    EditLabel.Caption = #21457#36865#22320#22336
    LabelPosition = lpLeft
    LabelSpacing = 3
    ReadOnly = True
    TabOrder = 3
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 264
    Top = 16
  end
  object PopupMenu1: TPopupMenu
    Images = ImageList1
    OwnerDraw = True
    Left = 296
    Top = 8
    object N1: TMenuItem
      Caption = #24674#22797#26174#31034
      ImageIndex = 0
      OnClick = N1Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object N2: TMenuItem
      Caption = #36864'        '#20986
      ImageIndex = 1
      OnClick = N2Click
    end
  end
  object ImageList1: TImageList
    Left = 224
    Top = 8
    Bitmap = {
      494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FF7FFF7FFF7FFF7FFE7B9A7F157F
      157F9A7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000001042
      1042104200000000000000000000000000000000FF7FFF7FFF7FFF7F00000000
      00000000000010420000FF03FF03000000000000000000000000000000000000
      000000000000000000000000000000000000FF7FFF7FFE7F4D7A2079C57D497A
      297E83796179157FFF7FFF7FFF7FFF7FFF7F000000000000104210420000FF7F
      FF7FFF7F00001042104200000000000000000000FF7FFF7FFF7FFF7FFF7F0000
      0000000000001042000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FF7FFE7F637D6D7AFF7FFF7FFF7F
      FF7FFF7FBC7FA4792B7AFF7FFF7FFF7FFF7F0000000010421042FF7FFF7FFF7F
      FF7FFF7FFF7FFF7F104210420000000000000000FF7FFF7FFF7FFF7FFF7F0000
      10421042104210420000E07FE07F000000000000000000000000000000000000
      000000000000000000000000000000000000FF7F0A7A6E7AFE7F367F20796179
      20796D7ADE7FFF7F8379577FFF7FFF7FFF7F000010421042FF7F0000FF7F0000
      0000000000000000FF7F10421042000000000000100010001000FF7FFF7F0000
      1042000000001042000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FF7F2179FE7F797F6279DD7FFF7F
      FE7FAF7A6279FF7B357BE77DFF7FFF7FFF7F000010420000FF7F000000000000
      0000FF7F0000FF7FFF7F000010420000000000001000100010001000FF7F0000
      1042186318631042104210421042104200000000000000000000000000000000
      000000000000000000000000000000000000367FA679FF7FA4799A7BDD7FE979
      A879FE7F6179DC7F9B7FA479FF7FFF7FFF7F0000E003FF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7F007C000000000000100010001000100010000000
      1042104210421042104210421042104200000000000000000000000000000000
      0000000000000000000000000000000000006E7A8E7EFF7F207DFF7FA579367B
      FE7BFF7F6179DD7F137F097EFF7FDD7FFF7FE003E003FF7F0000FF7FFF7FFF7F
      FF7FFF7FFF7FFF7F0000FF7F007C007C00001042FF7FFF7FFF7F186310000000
      1042104210421042004010420000104200000000000000000000000000000000
      0000000000000000000000000000000000006F7A6E7EFF7F217DFF7F847D797F
      FF7F357B6179FF7BC77DD27EFF7F6479797FE003E003FF7FFF7FFF7FFF7FFF7F
      0000FF7FFF7FFF7FFF7FFF7F007C007C0000FF7F1863FF7F1042FF7FFF7F0000
      1863FF7FFF7FFF7FFF7F18631042000000000000000000000000000000000000
      000000000000000000000000000000000000377FC879FF7FC77D367B9A7F4279
      417D8475BB7FDD7F6179BB7BDF7F4079DD7FE003E003FF7F0000FF7FFF7FFF7F
      FF7F007CFF7FFF7F0000FF7F007C007C00001042FF7F18631042FF7FFF7F0000
      FF03FF03FF03FF03100218631042000000000000000000000000000000000000
      000000000000000000000000000000000000FF7F207DDD7FDD7F417D9A7BFF7B
      FF7FFE7FDD7B8479E979FF7FB07A8479FF7F0000E0030000FF7FFF7FFF7FFF7F
      FF7FFF7F007C0000FF7F0000E07F000000000000104200000000104210420000
      FF7FFF7FFF7FFF03100218631042000000000000000000000000000000000000
      000000000000000000000000000000000000FF7FB17EE879FF7FBB7F8379857D
      4C7EC77920794C7AFF7FBC7F20799A7BFF7F0000E0030000FF7F0000FF7FFF7F
      FF7FFF7FFF7F007CFF7F0000E07F000000000000000000001042186310021042
      FF7FFF7FFF7FFF03100218631042000000000000000000000000000000000000
      000000000000000000000000000000000000FF7FFF7FC879C77DDE7FFF7F797F
      147F9A7FFF7FFF7BDD7F417D6F7AFF7FFF7F0000E003E0030000FF7F0000FF7F
      FF7FFF7F0000FF7F0000E07FE07F000000000000000000001042186310021000
      100010001000FF03100218631042000000000000000000000000000000000000
      000000000000000000000000000000000000FF7FFF7FFF7BD07A4179F47EDC7F
      DE7FDD7F587B2A7A21796F7AFF7FFF7FFF7F00000000E003E0030000FF7FFF7F
      0000FF7FFF7F0000E003E07F0000000000000000000000001042186310021002
      1002100210021002100218631042000000000000000000000000000000000000
      000000000000000000000000000000000000FF7FFF7FFF7FFF7FFE7F8F7A8379
      20794279C679F27ADD7FFF7FFF7FFF7FFF7F000000000000E003E003E0030000
      00000000E003E003E00300000000000000000000000000001042186318631863
      1863186318631863186318631042000000000000000000000000000000000000
      000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000E003
      E003E00300000000000000000000000000000000000000000000104218631863
      1863186318631863186318631042000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF000000E00F8FC000000000F01F87C00000
      0000E00F800000000000C0078000000000008003800000000000000180000000
      0000000180000000000000010000000000000001000300000000000100030000
      000000018003000000000001C003000000008003E00300000000C007E0030000
      0000E00FE00300000000F01FF003000000000000000000000000000000000000
      000000000000}
  end
  object Timer2: TTimer
    Enabled = False
    OnTimer = Timer2Timer
    Left = 16
    Top = 328
  end
  object PopupMenu2: TPopupMenu
    OwnerDraw = True
    Left = 368
    Top = 104
    object N4: TMenuItem
      Caption = #21024#38500#24403#21069#34892'(&a)'
      OnClick = N4Click
    end
    object N5: TMenuItem
      Caption = #21024#38500#20840#37096'(&d)'
      OnClick = N5Click
    end
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = True
    ControlUseTrueXPStyle = True
    BtnRoundArc = 5
    BtnOutLineBorderColor = 7552000
    BtnInnerBorderMoveColor = 3257087
    BtnInnerBorderFocusColor = 15183500
    BtnSurfaceNormalColor = 16251903
    BtnSurfaceDownColor = 14608359
    BtnSurfaceBottomLineColor = 14608359
    BtnSurfaceDownBottomLineColor = 15199215
    RdoChkControlChkColor = 41472
    ComboBoxChkColor = 9201994
    ComboboxSurfaceMoveColor = 16771030
    ControlDisabledBorderColor = 11913158
    Left = 336
    Top = 8
  end
end