unit1.dfm

一个自助聊天服务程序

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 741
  Height = 606
  Caption = #21161#32842#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 105
    Height = 579
    Align = alLeft
    TabOrder = 0
    object RadioGroup1: TRadioGroup
      Left = 1
      Top = 1
      Width = 103
      Height = 577
      Align = alClient
      PopupMenu = PopupMenu1
      TabOrder = 0
      OnClick = RadioGroup1Click
    end
  end
  object Panel2: TPanel
    Left = 105
    Top = 0
    Width = 628
    Height = 579
    Align = alClient
    TabOrder = 1
    object Panel3: TPanel
      Left = 1
      Top = 536
      Width = 626
      Height = 42
      Align = alBottom
      TabOrder = 0
      object RadioGroup2: TRadioGroup
        Left = 1
        Top = 1
        Width = 136
        Height = 40
        Align = alLeft
        Columns = 2
        ItemIndex = 1
        Items.Strings = (
          #20027#39064
          #20869#23481)
        TabOrder = 0
      end
      object Edit1: TEdit
        Left = 144
        Top = 8
        Width = 425
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnKeyDown = Edit1KeyDown
      end
      object Button1: TButton
        Left = 576
        Top = 8
        Width = 41
        Height = 25
        Caption = '<<'
        TabOrder = 2
        OnClick = Button1Click
      end
    end
    object Memo1: TMemo
      Left = 1
      Top = 1
      Width = 626
      Height = 80
      Align = alTop
      BevelInner = bvNone
      BevelKind = bkFlat
      BevelOuter = bvSpace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        #22312#36873#25321#29366#24577#19979#65292#21452#20987#21024#38500#65292#21491#38190#21333#20987#36873#20837#21040#24403#21069#20027#39064#26639#20013#65307
        #22312#38750#36873#25321#29366#24577#19979#65292#21452#20987#21024#38500#65292#21333#20987#36873#23450#20027#39064#20869#23481#65292#24182#33258#21160#22797#21046#21040#21098#36148
        #26495#20013#21435#65292#21487#22312#32842#22825#26102#36827#34892#31896#36148#24471#21040#65307)
      ParentFont = False
      TabOrder = 1
    end
    object ListBox1: TListBox
      Left = 1
      Top = 81
      Width = 626
      Height = 455
      Align = alClient
      ItemHeight = 13
      TabOrder = 2
      OnClick = ListBox1Click
      OnDblClick = ListBox1DblClick
    end
    object ListBox2: TListBox
      Left = 1
      Top = 81
      Width = 626
      Height = 455
      Align = alClient
      ItemHeight = 13
      TabOrder = 3
      Visible = False
      OnDblClick = ListBox2DblClick
      OnMouseUp = ListBox2MouseUp
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 336
    Top = 176
    object N1: TMenuItem
      Caption = #25171#24320#25991#20214
      Enabled = False
      OnClick = N1Click
    end
    object N4: TMenuItem
      Caption = #20998#31867#29366#24577
      OnClick = N4Click
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 488
    Top = 128
  end
end