chatfrm.dfm

网上找到的使用UDP协议实现聊天的Delphi源码

            Caption = #22833#26395#30340#33080
            ImageIndex = 17
            SelectedImageIndex = 17
          end
          item
            Caption = #23604#23596#30340#31505#33080
            ImageIndex = 18
            SelectedImageIndex = 18
          end
          item
            Caption = #29983#27668#30340#33080
            ImageIndex = 19
            SelectedImageIndex = 19
          end
          item
            Caption = #24694#39764
            ImageIndex = 20
            SelectedImageIndex = 20
          end
          item
            Caption = #21676#29273#20999#40831
            ImageIndex = 21
            SelectedImageIndex = 21
          end
          item
            Caption = #35773#21050#30340#33080
            ImageIndex = 22
            SelectedImageIndex = 22
          end
          item
            Caption = #29983#30149#30340#33080
            ImageIndex = 23
            SelectedImageIndex = 23
          end
          item
            Caption = #27491#22312#24605#32771
            ImageIndex = 24
            SelectedImageIndex = 24
          end
          item
            Caption = #36716#21160#30524#30555
            ImageIndex = 25
            SelectedImageIndex = 25
          end
          item
            Caption = #22826#26834#20102
            ImageIndex = 26
            SelectedImageIndex = 26
          end
          item
            Caption = #21860#37202#26479
            ImageIndex = 27
            SelectedImageIndex = 27
          end
          item
            Caption = #32418#24515
            ImageIndex = 28
            SelectedImageIndex = 28
          end
          item
            Caption = #32418#29611#29808
            ImageIndex = 29
            SelectedImageIndex = 29
          end
          item
            Caption = #38899#31526
            ImageIndex = 30
            SelectedImageIndex = 30
          end
          item
            Caption = #26143#26143
            ImageIndex = 31
            SelectedImageIndex = 31
          end
          item
            Caption = #27773#36710
            ImageIndex = 32
            SelectedImageIndex = 32
          end
          item
            Caption = #38632#20254
            ImageIndex = 33
            SelectedImageIndex = 33
          end
          item
            Caption = #35745#31639#26426
            ImageIndex = 34
            SelectedImageIndex = 34
          end
          item
            Caption = #37329#38065
            ImageIndex = 35
            SelectedImageIndex = 35
          end
          item
            Caption = #39134#26426
            ImageIndex = 36
            SelectedImageIndex = 36
          end
          item
            Caption = #36275#29699
            ImageIndex = 37
            SelectedImageIndex = 37
          end
          item
            Caption = #30005#23376#37038#20214
            ImageIndex = 38
            SelectedImageIndex = 38
          end
          item
            Caption = #27785#30561#30340#24367#26376
            ImageIndex = 39
            SelectedImageIndex = 39
          end
          item
            Caption = #28783#27873
            ImageIndex = 40
            SelectedImageIndex = 40
          end
          item
            Caption = #20939#35874#30340#29611#29808
            ImageIndex = 41
            SelectedImageIndex = 41
          end
          item
            Caption = #30772#30862#30340#24515
            ImageIndex = 42
            SelectedImageIndex = 42
          end
          item
            Caption = #31036#21697#30418
            ImageIndex = 43
            SelectedImageIndex = 43
          end
          item
            Caption = #29983#26085#34507#31957
            ImageIndex = 44
            SelectedImageIndex = 44
          end
          item
            Caption = #22826#24046#20102
            ImageIndex = 45
            SelectedImageIndex = 45
          end
          item
            Caption = #21654#21857
            ImageIndex = 46
            SelectedImageIndex = 46
          end>
        Style = csExDropDownList
        StyleEx = [csExNoSizeLimit, csExPathWordBreak]
        Ctl3D = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ImeMode = imDisable
        ItemHeight = 16
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        TabStop = False
        OnChange = ExpresstionChange
        Images = ImageListExpression
        DropDownCount = 12
      end
      object BroadCast: TCheckBox
        Left = 127
        Top = 5
        Width = 73
        Height = 17
        Hint = #23558#20449#24687#21457#36865#32473#25152#26377#22312#32447#29992#25143
        Caption = #24191#25773#28040#24687
        TabOrder = 1
        OnClick = BroadCastClick
      end
      object chbShowTime: TCheckBox
        Left = 198
        Top = 5
        Width = 73
        Height = 17
        Caption = #35760#24405#26102#38388
        TabOrder = 2
        OnClick = BroadCastClick
      end
      object chbCloseAferSend: TCheckBox
        Left = 271
        Top = 5
        Width = 72
        Height = 17
        Hint = #21457#36865#28040#24687#21518#33258#21160#20851#38381#31383#21475
        Caption = #33258#21160#20851#38381
        TabOrder = 3
        OnClick = BroadCastClick
      end
      object chbAutoShow: TCheckBox
        Left = 343
        Top = 5
        Width = 72
        Height = 17
        Hint = #25509#21040#28040#24687#21518#33258#21160#26174#31034#26412#31383#21475
        Caption = #33258#21160#26174#31034
        TabOrder = 4
        OnClick = BroadCastClick
      end
    end
  end
  object pnlNameList: TPanel
    Left = 426
    Top = 0
    Width = 103
    Height = 331
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 1
    object ClientListBox: TListBox
      Left = 0
      Top = 16
      Width = 103
      Height = 315
      Hint = 'Ctrl+'#19978#19979#38190#36873#25321#28040#24687#25509#25910#32773
      Style = lbOwnerDrawVariable
      Align = alClient
      BevelEdges = [beLeft, beRight, beBottom]
      BevelKind = bkSoft
      BorderStyle = bsNone
      Color = 15526115
      ItemHeight = 12
      TabOrder = 0
      OnClick = ClientListBoxClick
      OnDrawItem = ClientListBoxDrawItem
      OnMeasureItem = ClientListBoxMeasureItem
    end
    object StaticText1: TStaticText
      Left = 0
      Top = 0
      Width = 103
      Height = 16
      Align = alTop
      Alignment = taCenter
      BevelEdges = [beBottom]
      BevelKind = bkFlat
      BevelOuter = bvRaised
      BorderStyle = sbsSunken
      Caption = #22312#32447#21517#21333
      Color = clActiveBorder
      Font.Charset = GB2312_CHARSET