mainunit.~dfm

一个通过串口连接手机发短信的程序。

object MainForm: TMainForm
  Left = 322
  Top = 111
  Width = 421
  Height = 622
  Caption = 'D2800SynchSoftware'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 557
    Width = 413
    Height = 19
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object PageControl: TPageControl
    Left = 0
    Top = 35
    Width = 413
    Height = 522
    ActivePage = TSSM
    Align = alClient
    TabIndex = 0
    TabOrder = 1
    object TSSM: TTabSheet
      Caption = #30701#28040#24687
      object CBSM: TCoolBar
        Left = 0
        Top = 0
        Width = 405
        Height = 34
        Bands = <
          item
            Control = ToolBar1
            ImageIndex = -1
            MinHeight = 28
            Width = 401
          end>
        object ToolBar1: TToolBar
          Left = 9
          Top = 0
          Width = 388
          Height = 28
          Caption = 'TBSM'
          TabOrder = 0
          object ToolButton5: TToolButton
            Left = 0
            Top = 2
            Width = 8
            Caption = 'ToolButton5'
            Style = tbsSeparator
          end
          object BCreat: TButton
            Left = 8
            Top = 2
            Width = 75
            Height = 22
            Caption = #21019#24314#30701#20449
            TabOrder = 0
          end
          object ToolButton6: TToolButton
            Left = 83
            Top = 2
            Width = 8
            Caption = 'ToolButton6'
            ImageIndex = 0
            Style = tbsSeparator
          end
          object BRead: TButton
            Left = 91
            Top = 2
            Width = 75
            Height = 22
            Caption = #35835#21462#30701#20449
            TabOrder = 1
          end
        end
      end
      object TCCreat: TTabControl
        Left = 0
        Top = 34
        Width = 405
        Height = 460
        Align = alClient
        TabOrder = 1
        object RESendMsg: TRichEdit
          Left = 4
          Top = 6
          Width = 397
          Height = 163
          Align = alTop
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object LESerPNum: TLabeledEdit
          Left = 136
          Top = 192
          Width = 97
          Height = 21
          AutoSize = False
          EditLabel.Width = 84
          EditLabel.Height = 13
          EditLabel.Caption = #30701#20449#20013#24515#21495#30721#65306
          LabelPosition = lpLeft
          LabelSpacing = 3
          TabOrder = 1
          Text = '8613800411500'
        end
        object LEDesPNum: TLabeledEdit
          Left = 136
          Top = 240
          Width = 97
          Height = 21
          AutoSize = False
          EditLabel.Width = 72
          EditLabel.Height = 13
          EditLabel.Caption = #23545#26041#25163#26426#21495#65306
          EditLabel.Layout = tlCenter
          LabelPosition = lpLeft
          LabelSpacing = 3
          TabOrder = 2
        end
        object BSend: TButton
          Left = 128
          Top = 392
          Width = 75
          Height = 25
          Caption = #21457#36865
          TabOrder = 3
          OnClick = BSendClick
        end
      end
    end
    object TSPB: TTabSheet
      Caption = #30005#35805#31807
      ImageIndex = 1
    end
  end
  object CoolBar: TCoolBar
    Left = 0
    Top = 0
    Width = 413
    Height = 35
    Bands = <
      item
        Control = ToolBar
        ImageIndex = -1
        MinHeight = 28
        Width = 409
      end>
    object ToolBar: TToolBar
      Left = 9
      Top = 0
      Width = 396
      Height = 28
      Caption = 'ToolBar'
      TabOrder = 0
      object TBLink: TToolButton
        Left = 0
        Top = 2
        Caption = 'TBLink'
        ImageIndex = 0
      end
      object ToolButton1: TToolButton
        Left = 23
        Top = 2
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 1
        Style = tbsSeparator
      end
      object TBBreak: TToolButton
        Left = 31
        Top = 2
        Caption = #26029#24320
        MenuItem = NBreak
      end
      object ToolButton2: TToolButton
        Left = 54
        Top = 2
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 2
        Style = tbsSeparator
      end
      object TBSM: TToolButton
        Left = 62
        Top = 2
        Caption = #30701#28040#24687
        MenuItem = NSM
      end
      object ToolButton3: TToolButton
        Left = 85
        Top = 2
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object TBPB: TToolButton
        Left = 93
        Top = 2
        Caption = #30005#35805#31807
        MenuItem = NPB
      end
      object ToolButton4: TToolButton
        Left = 116
        Top = 2
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object TBHelp: TToolButton
        Left = 124
        Top = 2
        Caption = #20351#29992#24110#21161
        MenuItem = NUserHelp
      end
    end
  end
  object MainMenu: TMainMenu
    Left = 936
    Top = 8
    object NSystem: TMenuItem
      Caption = #31995#32479'(&S)'
      object NLink: TMenuItem
        Caption = #36830#25509
        ShortCut = 16460
        OnClick = NLinkClick
      end
      object NBreak: TMenuItem
        Caption = #26029#24320
        ShortCut = 16450
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object NConfig: TMenuItem
        Caption = #37197#32622#31471#21475
        ShortCut = 16453
        OnClick = NConfigClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object NExit: TMenuItem
        Caption = #36864#20986'(&X)'
        OnClick = NExitClick
      end
    end
    object NOperation: TMenuItem
      Caption = #25805#20316'(&O)'
      object NSM: TMenuItem
        Caption = #30701#28040#24687
        ShortCut = 16467
      end
      object NPB: TMenuItem
        Caption = #30005#35805#31807
        ShortCut = 16464
      end
    end
    object NHelp: TMenuItem
      Caption = #24110#21161'(&H)'
      object NUserHelp: TMenuItem
        Caption = #20351#29992#24110#21161
        ShortCut = 16456
      end
    end
  end
end