www.pudn.com > Testgsm.rar > Unit1.dfm

object Form1: TForm1 
  Left = 224 
  Top = 82 
  Width = 870 
  Height = 429 
  Caption = 'GSM Modem '#27979#35797#25910#21457 
  Color = clBtnFace 
  Font.Charset = DEFAULT_CHARSET 
  Font.Color = clWindowText 
  Font.Height = -11 
  Font.Name = 'MS Sans Serif' 
  Font.Style = [] 
  OldCreateOrder = False 
  OnCreate = FormCreate 
  PixelsPerInch = 96 
  TextHeight = 13 
  object GroupBox1: TGroupBox 
    Left = 8 
    Top = 8 
    Width = 297 
    Height = 385 
    Caption = #21457#36865 
    TabOrder = 0 
    object Label1: TLabel 
      Left = 16 
      Top = 16 
      Width = 89 
      Height = 16 
      AutoSize = False 
      Caption = #25509#25910#26041#21495#30721#65306 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clRed 
      Font.Height = -13 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
    end 
    object Label2: TLabel 
      Left = 16 
      Top = 48 
      Width = 73 
      Height = 16 
      AutoSize = False 
      Caption = #20449#24687#20013#24515#65306 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clRed 
      Font.Height = -13 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
    end 
    object Label3: TLabel 
      Left = 16 
      Top = 88 
      Width = 73 
      Height = 16 
      AutoSize = False 
      Caption = #21457#36865#20869#23481#65306 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clRed 
      Font.Height = -13 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
    end 
    object Label7: TLabel 
      Left = 16 
      Top = 343 
      Width = 73 
      Height = 16 
      AutoSize = False 
      Caption = #36873#25321#20018#21475#65306 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clRed 
      Font.Height = -13 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
    end 
    object Label8: TLabel 
      Left = 58 
      Top = 304 
      Width = 135 
      Height = 23 
      AutoSize = False 
      Caption = #26410#36830#25509'......' 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clRed 
      Font.Height = -11 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
    end 
    object SendMsg: TMemo 
      Left = 16 
      Top = 120 
      Width = 257 
      Height = 177 
      Lines.Strings = ( 
        #20869#23481) 
      TabOrder = 0 
    end 
    object RecNum: TEdit 
      Left = 112 
      Top = 15 
      Width = 161 
      Height = 21 
      TabOrder = 1 
      Text = '13828936386' 
    end 
    object InfoCenter: TEdit 
      Left = 112 
      Top = 45 
      Width = 161 
      Height = 21 
      Color = clScrollBar 
      Enabled = False 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clRed 
      Font.Height = -11 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
      TabOrder = 2 
    end 
    object BtnSend: TButton 
      Left = 200 
      Top = 88 
      Width = 75 
      Height = 25 
      Caption = #21457#36865 
      TabOrder = 3 
      OnClick = BtnSendClick 
    end 
    object ComboBox1: TComboBox 
      Left = 96 
      Top = 341 
      Width = 89 
      Height = 21 
      Style = csDropDownList 
      ItemHeight = 13 
      ItemIndex = 7 
      TabOrder = 4 
      Text = 'COM8' 
      Items.Strings = ( 
        'COM1' 
        'COM2' 
        'COM3' 
        'COM4' 
        'COM5' 
        'COM6' 
        'COM7' 
        'COM8' 
        'COM9') 
    end 
    object BtnOpen: TButton 
      Left = 200 
      Top = 323 
      Width = 73 
      Height = 25 
      Caption = #25171#24320 
      TabOrder = 5 
      OnClick = BtnOpenClick 
    end 
    object BtnClose: TButton 
      Left = 200 
      Top = 355 
      Width = 73 
      Height = 25 
      Caption = #20851#38381 
      TabOrder = 6 
      OnClick = BtnCloseClick 
    end 
  end 
  object GroupBox2: TGroupBox 
    Left = 328 
    Top = 8 
    Width = 529 
    Height = 385 
    Caption = #25509#25910 
    TabOrder = 1 
    object Label4: TLabel 
      Left = 16 
      Top = 16 
      Width = 89 
      Height = 16 
      AutoSize = False 
      Caption = #21457#36865#26041#21495#30721#65306 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clRed 
      Font.Height = -13 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
    end 
    object Label5: TLabel 
      Left = 16 
      Top = 48 
      Width = 73 
      Height = 16 
      AutoSize = False 
      Caption = #21457#36865#26102#38388#65306 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clRed 
      Font.Height = -13 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
    end 
    object Label6: TLabel 
      Left = 16 
      Top = 88 
      Width = 73 
      Height = 16 
      AutoSize = False 
      Caption = #21457#36865#20869#23481#65306 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clRed 
      Font.Height = -13 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
    end 
    object RecMsg: TMemo 
      Left = 16 
      Top = 120 
      Width = 257 
      Height = 177 
      TabOrder = 0 
    end 
    object SendNum: TEdit 
      Left = 112 
      Top = 15 
      Width = 161 
      Height = 21 
      TabOrder = 1 
      Text = 'SendNum' 
    end 
    object InfoCenter2: TEdit 
      Left = 112 
      Top = 45 
      Width = 161 
      Height = 21 
      TabOrder = 2 
      Text = 'InfoCenter2' 
    end 
    object BtnRce: TButton 
      Left = 192 
      Top = 320 
      Width = 75 
      Height = 25 
      Caption = #35835#21462 
      Enabled = False 
      TabOrder = 3 
      OnClick = BtnRceClick 
    end 
    object ListBox1: TListBox 
      Left = 288 
      Top = 16 
      Width = 225 
      Height = 361 
      ItemHeight = 13 
      TabOrder = 4 
      OnMouseDown = ListBox1MouseDown 
    end 
    object Button2: TButton 
      Left = 192 
      Top = 352 
      Width = 75 
      Height = 25 
      Caption = #21047#26032#21015#34920 
      TabOrder = 5 
      OnClick = Button2Click 
    end 
    object Button3: TButton 
      Left = 200 
      Top = 88 
      Width = 75 
      Height = 25 
      Caption = '2' 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clWindowText 
      Font.Height = -32 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [fsBold] 
      ParentFont = False 
      TabOrder = 6 
      OnClick = Button3Click 
    end 
  end 
  object MSC: TMSComm 
    Left = 301 
    Top = 24 
    Width = 32 
    Height = 32 
    OnComm = MSCComm 
    ControlData = { 
      2143341208000000ED030000ED03000001568A64000006000000080000040000 
      00020000802500000000080000000000000000003F00000001000000} 
  end 
  object Button1: TButton 
    Left = 440 
    Top = 96 
    Width = 75 
    Height = 25 
    Caption = '1' 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -32 
    Font.Name = 'MS Sans Serif' 
    Font.Style = [fsBold] 
    ParentFont = False 
    TabOrder = 3 
    OnClick = Button1Click 
  end 
  object Timer1: TTimer 
    Enabled = False 
    Interval = 10000 
    OnTimer = Timer1Timer 
    Left = 304 
    Top = 64 
  end 
end