unit_design.dfm

实现短信的收发应用非常的方便,系统很小直接使用不需安装

object designform: Tdesignform
  Left = 199
  Top = 128
  BorderStyle = bsNone
  Caption = #23383#27573#35774#32622#31383#20307
  ClientHeight = 474
  ClientWidth = 444
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 444
    Height = 474
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Shape1: TShape
      Left = 0
      Top = 0
      Width = 444
      Height = 38
      Align = alTop
      Brush.Color = clTeal
      Pen.Color = clTeal
      Pen.Width = 2
      OnMouseDown = Shape1MouseDown
    end
    object Label4: TLabel
      Left = 188
      Top = 11
      Width = 48
      Height = 15
      Caption = #23383#27573#35774#32622
      Transparent = True
    end
    object Shape2: TShape
      Left = 0
      Top = 38
      Width = 444
      Height = 436
      Align = alClient
      Brush.Color = clInactiveBorder
      Pen.Color = clTeal
      Pen.Width = 4
      OnMouseDown = Shape2MouseDown
    end
    object SpeedButton1: TSpeedButton
      Left = 205
      Top = 104
      Width = 29
      Height = 71
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
        333333333337F33333333333333033333333333333373F333333333333090333
        33333333337F7F33333333333309033333333333337373F33333333330999033
        3333333337F337F33333333330999033333333333733373F3333333309999903
        333333337F33337F33333333099999033333333373333373F333333099999990
        33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333300033333333333337773333333}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object SpeedButton4: TSpeedButton
      Left = 175
      Top = 184
      Width = 81
      Height = 27
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333FF3333333333333003333
        3333333333773FF3333333333309003333333333337F773FF333333333099900
        33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
        99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
        33333333337F3F77333333333309003333333333337F77333333333333003333
        3333333333773333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = SpeedButton4Click
    end
    object SpeedButton3: TSpeedButton
      Left = 175
      Top = 224
      Width = 81
      Height = 27
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333FF3333333333333003333333333333F77F33333333333009033
        333333333F7737F333333333009990333333333F773337FFFFFF330099999000
        00003F773333377777770099999999999990773FF33333FFFFF7330099999000
        000033773FF33777777733330099903333333333773FF7F33333333333009033
        33333333337737F3333333333333003333333333333377333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = SpeedButton3Click
    end
    object SpeedButton2: TSpeedButton
      Left = 205
      Top = 264
      Width = 29
      Height = 71
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
        3333333333777F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
        3333333777737777F333333099999990333333373F3333373333333309999903
        333333337F33337F33333333099999033333333373F333733333333330999033
        3333333337F337F3333333333099903333333333373F37333333333333090333
        33333333337F7F33333333333309033333333333337373333333333333303333
        333333333337F333333333333330333333333333333733333333}
      NumGlyphs = 2
      OnClick = SpeedButton2Click
    end
    object ListBox1: TListBox
      Left = 6
      Top = 44
      Width = 162
      Height = 326
      Color = clInfoBk
      ItemHeight = 15
      TabOrder = 0
    end
    object ListBox2: TListBox
      Left = 269
      Top = 44
      Width = 167
      Height = 326
      Color = clInfoBk
      ItemHeight = 15
      TabOrder = 1
    end
    object ToolBar1: TToolBar
      Left = 135
      Top = 415
      Width = 164
      Height = 42
      Align = alNone
      AutoSize = True
      ButtonHeight = 38
      ButtonWidth = 31
      Caption = 'ToolBar1'
      Color = clBtnFace
      EdgeBorders = [ebTop, ebBottom]
      Flat = True
      HotImages = ImageList1
      Images = ImageList1
      ParentColor = False
      ShowCaptions = True
      TabOrder = 2
      Transparent = True
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 4
        Style = tbsDivider
      end
      object BitBtn1: TToolButton
        Left = 8
        Top = 0
        Caption = #22686#21152
        ImageIndex = 0
        OnClick = SpeedButton4Click
      end
      object ToolButton3: TToolButton
        Left = 39
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 5
        Style = tbsDivider
      end
      object BitBtn2: TToolButton
        Left = 47
        Top = 0
        Caption = #21024#38500
        ImageIndex = 1
        OnClick = SpeedButton3Click
      end
      object ToolButton4: TToolButton
        Left = 78
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 6
        Style = tbsDivider
      end
      object BitBtn3: TToolButton