alertform.~dfm

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

object frmAlertConfig: TfrmAlertConfig
  Left = 325
  Top = 153
  Width = 353
  Height = 274
  BorderIcons = [biSystemMenu]
  Caption = '报警'
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 345
    Height = 193
    Align = alTop
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 343
      Height = 191
      ActivePage = TabSheet2
      Align = alClient
      TabOrder = 0
      object TabSheet2: TTabSheet
        Caption = '报警设置'
        ImageIndex = 1
        object GroupBox1: TGroupBox
          Left = 0
          Top = 0
          Width = 335
          Height = 81
          Align = alTop
          TabOrder = 0
          object cbxAlertLight: TCheckBox
            Left = 32
            Top = 24
            Width = 97
            Height = 17
            Caption = '启用报警灯'
            Checked = True
            State = cbChecked
            TabOrder = 0
          end
          object cbxAlertSpeaker: TCheckBox
            Left = 32
            Top = 51
            Width = 97
            Height = 17
            Caption = '启用蜂鸣器'
            Checked = True
            State = cbChecked
            TabOrder = 1
          end
        end
        object GroupBox2: TGroupBox
          Left = 0
          Top = 81
          Width = 335
          Height = 82
          Align = alClient
          TabOrder = 1
          object Label1: TLabel
            Left = 24
            Top = 53
            Width = 70
            Height = 13
            Caption = '中心号码：'
          end
          object cbxShortMsg: TCheckBox
            Left = 24
            Top = 25
            Width = 97
            Height = 17
            Caption = '发送短消息'
            Checked = True
            State = cbChecked
            TabOrder = 0
            OnClick = cbxShortMsgClick
          end
          object edtCenterNo: TEdit
            Left = 96
            Top = 53
            Width = 209
            Height = 21
            TabOrder = 1
          end
          object btnRecPerson: TButton
            Left = 229
            Top = 25
            Width = 75
            Height = 25
            Caption = '发送至...'
            TabOrder = 2
            OnClick = btnRecPersonClick
          end
        end
      end
    end
  end
  object bbnCancel: TBitBtn
    Left = 256
    Top = 208
    Width = 75
    Height = 25
    Caption = '取消'
    TabOrder = 1
    Kind = bkCancel
  end
  object bbnOK: TBitBtn
    Left = 168
    Top = 208
    Width = 75
    Height = 25
    Caption = '确定'
    TabOrder = 2
    OnClick = bbnOKClick
    Kind = bkOK
  end
end