unit1.dfm

转发一个用Delphi7编写的网络即时通讯示例

object Form1: TForm1
  Left = 224
  Top = 114
  Width = 601
  Height = 453
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #32842#22825#31243#24207
  Color = clSilver
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 593
    Height = 49
    Bands = <
      item
        Control = Panel1
        ImageIndex = -1
        MinHeight = 49
        Width = 589
      end>
    Color = clSkyBlue
    ParentColor = False
    object Panel1: TPanel
      Left = 9
      Top = 0
      Width = 576
      Height = 49
      Color = clSkyBlue
      TabOrder = 0
      object Label1: TLabel
        Left = 112
        Top = 8
        Width = 285
        Height = 29
        Alignment = taCenter
        Caption = #27426#36814#30331#38470'WJF'#32842#22825#31995#32479
        Font.Charset = GB2312_CHARSET
        Font.Color = clGray
        Font.Height = -29
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 48
    Width = 593
    Height = 25
    Caption = #25910#21040#30340#20449#24687
    Color = clSkyBlue
    TabOrder = 1
  end
  object Memo1: TMemo
    Left = 0
    Top = 72
    Width = 593
    Height = 145
    Lines.Strings = (
      'Memo1')
    TabOrder = 2
  end
  object Memo2: TMemo
    Left = 0
    Top = 232
    Width = 593
    Height = 145
    Lines.Strings = (
      'Memo2')
    TabOrder = 3
    OnClick = Memo2Click
    OnDblClick = Memo2DblClick
  end
  object Panel3: TPanel
    Left = 0
    Top = 208
    Width = 593
    Height = 25
    Caption = #21457#36865#30340#20449#24687
    Color = clSkyBlue
    TabOrder = 4
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 380
    Width = 593
    Height = 19
    Panels = <
      item
        Width = 360
      end
      item
        Width = 50
      end>
  end
  object Panel4: TPanel
    Left = -8
    Top = 344
    Width = 601
    Height = 33
    Caption = 'Panel4'
    Color = clSkyBlue
    TabOrder = 6
    object connect: TButton
      Left = 16
      Top = 8
      Width = 75
      Height = 25
      Caption = #36830#25509
      TabOrder = 0
      OnClick = connectClick
    end
    object break: TButton
      Left = 120
      Top = 8
      Width = 75
      Height = 25
      Caption = #26029#24320
      TabOrder = 1
      OnClick = breakClick
    end
    object button3: TButton
      Left = 504
      Top = 8
      Width = 75
      Height = 25
      Caption = #21457#36865
      TabOrder = 2
      OnClick = button3Click
    end
  end
  object MainMenu1: TMainMenu
    Left = 104
    Top = 104
    object N1: TMenuItem
      Caption = '&'#25991#20214'(F)'
      object N3: TMenuItem
        Caption = '&'#36830#25509'(L)'
        OnClick = N3Click
      end
      object N4: TMenuItem
        Caption = '&'#26029#24320'(D)'
        OnClick = N4Click
      end
      object N6: TMenuItem
        Caption = '&'#20445#23384'(S)'
        Hint = #20320#21487#20197#36890#36807'.TXT'#26684#24335#20445#23384#32842#22825#32426#24405
        OnClick = N6Click
      end
      object N5: TMenuItem
        Caption = '&'#36864#20986'(E)'
        OnClick = N5Click
      end
    end
    object N8: TMenuItem
      Caption = '&'#20667#22942'(S)'
      object N9: TMenuItem
        Caption = #20667#22942#26234#33021#31995#32479
        OnClick = N9Click
      end
      object N11: TMenuItem
        Caption = '&'#38899#20048#27427#36175'(M)'
      end
    end
    object N2: TMenuItem
      Caption = '&'#24110#21161'(H)'
      object N7: TMenuItem
        Caption = '&'#20316#32773'(A)'
        OnClick = N7Click
      end
      object N10: TMenuItem
        Caption = #38544#34255
        OnClick = N10Click
      end
    end
  end
  object TcpClient1: TTcpClient
    Left = 248
    Top = 104
  end
  object TcpServer1: TTcpServer
    OnAccept = TcpServer1Accept
    Left = 352
    Top = 128
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 449
    Top = 133
  end
  object SaveDialog1: TSaveDialog
    Left = 192
    Top = 152
  end
  object PopupMenu1: TPopupMenu
    Left = 528
    Top = 128
  end
end