unitsendsmsform.dfm

串口短信猫收发软件。支持西门子TC35i设备

object SendSMSForm: TSendSMSForm
  Left = 192
  Top = 107
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #30701#20449#32676#21457
  ClientHeight = 352
  ClientWidth = 539
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object RzPageControl1: TRzPageControl
    Left = 0
    Top = 0
    Width = 539
    Height = 352
    ActivePage = TabSheet1
    Align = alClient
    Images = ImageList1
    TabIndex = 0
    TabOrder = 0
    FixedDimension = 22
    object TabSheet1: TRzTabSheet
      ImageIndex = 1
      Caption = #21457#36865#30701#20449
      object RzGroupBox1: TRzGroupBox
        Left = 188
        Top = 0
        Width = 347
        Height = 326
        Align = alClient
        Caption = #24453#21457#36865#21015#34920
        TabOrder = 0
        object RzBitBtn1: TRzBitBtn
          Left = 40
          Top = 288
          Width = 137
          Caption = #28165#38500#24453#21457#36865#21015#34920
          TabOrder = 0
          OnClick = RzBitBtn1Click
          ImageIndex = 40
          Images = ImageList1
        end
        object RzListView_AddRequest: TRzListView
          Left = 1
          Top = 13
          Width = 345
          Height = 260
          Hint = #21452#20987#21024#38500#36873#20013#39033'...'
          Align = alTop
          BorderStyle = bsNone
          Color = clInfoBk
          Columns = <
            item
              Width = 2
            end
            item
              Alignment = taCenter
              Caption = #21457#36865#21542
              Width = 48
            end
            item
              Alignment = taCenter
              Caption = #30005#35805#21495#30721
              Width = 100
            end
            item
              Caption = #30701#20449#20869#23481
              Width = 179
            end>
          FlatScrollBars = True
          GridLines = True
          ParentShowHint = False
          ReadOnly = True
          RowSelect = True
          ShowHint = True
          TabOrder = 1
          ViewStyle = vsReport
          OnDblClick = RzListView_AddRequestDblClick
        end
        object RzBitBtn14: TRzBitBtn
          Left = 192
          Top = 288
          Width = 137
          Caption = #24320#22987#21457#36865#30701#20449' '
          TabOrder = 2
          OnClick = RzBitBtn14Click
          ImageIndex = 0
          Images = ImageList1
        end
      end
      object RzPanel7: TRzPanel
        Left = 0
        Top = 0
        Width = 188
        Height = 326
        Align = alLeft
        BorderOuter = fsNone
        TabOrder = 1
        object RzLabel_Tel: TRzLabel
          Left = 1
          Top = 110
          Width = 72
          Height = 12
          Caption = #12304#30005#35805#21495#30721#12305
          Font.Charset = GB2312_CHARSET
          Font.Color = clGreen
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          BlinkIntervalOff = 1000
          BlinkIntervalOn = 1000
        end
        object RzURLLabel2: TRzURLLabel
          Left = 109
          Top = 109
          Width = 72
          Height = 12
          Caption = #20174#36890#35759#31807#36873#25321
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsUnderline]
          ParentFont = False
          OnClick = RzURLLabel2Click
          BlinkIntervalOff = 1000
          BlinkIntervalOn = 1000
        end
        object RzLabel_Text: TRzLabel
          Left = 1
          Top = 8
          Width = 72
          Height = 12
          Caption = #12304#30701#20449#20869#23481#12305
          Font.Charset = GB2312_CHARSET
          Font.Color = clGreen
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          BlinkIntervalOff = 1000
          BlinkIntervalOn = 1000
        end
        object RzLabel_TextCount: TRzLabel
          Left = 74
          Top = 8
          Width = 35
          Height = 12
          Caption = '0/140'
          Font.Charset = GB2312_CHARSET
          Font.Color = clPurple
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          BlinkIntervalOff = 1000
          BlinkIntervalOn = 1000
        end
        object RzURLLabel1: TRzURLLabel
          Left = 111
          Top = 23
          Width = 72
          Height = 12
          Caption = #36873#25321#24120#29992#30701#35821
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsUnderline]
          ParentFont = False
          OnClick = RzURLLabel1Click
          BlinkIntervalOff = 1000
          BlinkIntervalOn = 1000
        end
        object RzMemo_RequestTel: TRzMemo
          Left = 4
          Top = 127
          Width = 181
          Height = 148
          Color = clBlack
          Font.Charset = GB2312_CHARSET
          Font.Color = clYellow
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
          ParentFont = False
          TabOrder = 0
          OnKeyPress = RzMemo_RequestTelKeyPress
        end
        object RzMemo_RequestText: TRzMemo
          Left = 4
          Top = 38
          Width = 181
          Height = 67
          Color = clBlack
          Font.Charset = GB2312_CHARSET
          Font.Color = clLime
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
          Lines.Strings = (
            ' ')
          MaxLength = 140
          ParentFont = False
          TabOrder = 1
          WantReturns = False
          OnChange = RzMemo_RequestTextChange
        end
        object RzBitBtn3: TRzBitBtn
          Left = 28
          Top = 288
          Width = 137
          Caption = #28155#21152#21040#24453#21457#36865#21015#34920
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = RzBitBtn3Click
          ImageIndex = 17
          Images = ImageList1
          Layout = blGlyphRight
        end
      end
    end
    object TabSheet3: TRzTabSheet
      ImageIndex = 3
      Caption = ' '#36890#35759#31807' '
      object RzDBGrid_AddrGroup: TRzDBGrid
        Left = 0
        Top = 0
        Width = 144
        Height = 326
        Hint = #21491#38190#21151#33021#36873#25321'...'
        Align = alLeft
        Color = clMoneyGreen
        DataSource = DM.DSrc_AddrGroup
        ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ReadOnly = True
        ShowHint = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'addrgroup_name'
            Title.Alignment = taCenter
            Visible = True
          end>
      end