un_input.dfm

局域网的一个聊天程序

object form_input: Tform_input
  Left = 321
  Top = 307
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  ClientHeight = 67
  ClientWidth = 398
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 12
  object lb_inf: TLabel
    Left = 8
    Top = 16
    Width = 6
    Height = 12
  end
  object ed_val: TEdit
    Left = 8
    Top = 40
    Width = 297
    Height = 20
    TabOrder = 0
    OnKeyPress = ed_valKeyPress
  end
  object Button1: TButton
    Left = 312
    Top = 39
    Width = 75
    Height = 22
    Caption = #30830#23450
    ModalResult = 1
    TabOrder = 1
  end
end