📄 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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -