main.dfm

简单的电话录音源码

object FormMain: TFormMain
  Left = 359
  Top = 175
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Simple Phone'
  ClientHeight = 356
  ClientWidth = 324
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 313
    Height = 57
    Caption = 'Telephony Line Device'
    TabOrder = 0
    object ComboLineName: TComboBox
      Left = 10
      Top = 24
      Width = 294
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      OnChange = ComboLineNameChange
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 72
    Width = 313
    Height = 161
    Caption = 'Call Status'
    TabOrder = 1
    object TextCallState: TMemo
      Left = 10
      Top = 16
      Width = 294
      Height = 97
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object CommandClear: TButton
      Left = 200
      Top = 128
      Width = 91
      Height = 25
      Caption = 'Cl&ear Status'
      TabOrder = 1
      OnClick = CommandClearClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 240
    Width = 313
    Height = 65
    Caption = 'Number to Call'
    TabOrder = 2
    object TextNumber: TEdit
      Left = 8
      Top = 24
      Width = 153
      Height = 21
      TabOrder = 0
    end
    object CommandCall: TButton
      Left = 200
      Top = 21
      Width = 91
      Height = 25
      Caption = 'C&all'
      TabOrder = 1
      OnClick = CommandCallClick
    end
  end
  object amTapiPro1: TamTapiPro
    Left = 8
    Top = 312
    Width = 32
    Height = 32
    OnCallState = amTapiPro1CallState
    OnDigitReceived = amTapiPro1DigitReceived
    OnDelayedError = amTapiPro1DelayedError
    OnCallerID = amTapiPro1CallerID
    OnDisconnected = amTapiPro1Disconnected
    OnIncomingCall = amTapiPro1IncomingCall
    OnSpecialInfo = amTapiPro1SpecialInfo
    ControlData = {000300000B00FFFF030010000000030004000000}
  end
  object CommandHangUp: TButton
    Left = 232
    Top = 320
    Width = 91
    Height = 25
    Caption = '&Hang Up'
    TabOrder = 4
    OnClick = CommandHangUpClick
  end
  object CommandAnswer: TButton
    Left = 128
    Top = 320
    Width = 91
    Height = 25
    Caption = '&Answer'
    TabOrder = 5
    OnClick = CommandAnswerClick
  end
  object MainMenu1: TMainMenu
    Left = 48
    Top = 312
    object File1: TMenuItem
      Caption = '&File'
      object Readme1: TMenuItem
        Caption = 'Readme'
        OnClick = Readme1Click
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
    object PleaseClickMe1: TMenuItem
      Caption = 'Please Click Me'
      OnClick = PleaseClickMe1Click
    end
  end
end