unit1.dfm

短信发送器 delphi 完全原代码,可以在d7 and windows xp下编译通过

    end
    object Label7: TLabel
      Left = 296
      Top = 88
      Width = 42
      Height = 14
      Caption = #32626#21517#65306
    end
    object Labelnum: TLabel
      Left = 144
      Top = 256
      Width = 105
      Height = 14
      Caption = #24050#32463#36755#20837'0'#20010#23383#31526
    end
    object ListBox1: TsuiListBox
      Left = 16
      Top = 72
      Width = 97
      Height = 249
      UIStyle = MacOS
      BorderColor = 8355711
      Style = lbOwnerDrawFixed
      ItemHeight = 14
      TabOrder = 8
    end
    object Editname: TsuiEdit
      Left = 200
      Top = 45
      Width = 105
      Height = 19
      UIStyle = MacOS
      BorderColor = 8355711
      TabOrder = 0
    end
    object Editpassword: TsuiEdit
      Left = 376
      Top = 45
      Width = 97
      Height = 19
      UIStyle = MacOS
      BorderColor = 8355711
      PasswordChar = '*'
      TabOrder = 1
    end
    object Memo1: TsuiMemo
      Left = 144
      Top = 112
      Width = 337
      Height = 137
      UIStyle = MacOS
      BorderColor = 8355711
      TabOrder = 3
      OnChange = Memo1Change
    end
    object StatusBar1: TStatusBar
      Left = 0
      Top = 364
      Width = 513
      Height = 19
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      Panels = <
        item
          Text = #26412#36719#20351#29992'TOM'#32593#20851#65292#35831#20808#21040'www.tom.com'#33719#21462#29992#25143#21517#19982#23494#30721#12290
          Width = 400
        end
        item
          Text = #23567#24378#21046#20316
          Width = 50
        end>
      ParentColor = True
      SimpleText = #26412#36719#20351#29992'TOM'#32593#20851#65292#35831#20808#21040'www.tom.com'#27880#20876#12290
      UseSystemFont = False
    end
    object suiButton1: TsuiButton
      Left = 144
      Top = 304
      Width = 80
      Height = 23
      Caption = #27880#12288#20876
      AutoSize = False
      UIStyle = MacOS
      TabOrder = 4
      Transparent = False
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton1Click
      ResHandle = 0
    end
    object suiButton2: TsuiButton
      Left = 272
      Top = 304
      Width = 80
      Height = 23
      Caption = #21457' '#36865
      AutoSize = False
      UIStyle = MacOS
      TabOrder = 5
      Transparent = False
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton2Click
      ResHandle = 0
    end
    object suiSideChannel1: TsuiSideChannel
      Left = 0
      Top = 20
      Width = 249
      Height = 344
      UIStyle = MacOS
      BorderColor = 8355711
      CaptionFontColor = clBlack
      ShowButton = True
      SideBarColor = 15198183
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      Align = suiLeft
      StayOn = False
      Color = 15198183
      ParentFont = False
      PopupMode = suiMouseOn
      QuickMove = False
      OnCanResize = suiSideChannel1CanResize
      OnPush = suiSideChannel1Push
      SideBarWidth = 10
      object Label5: TLabel
        Left = 24
        Top = 24
        Width = 48
        Height = 13
        Caption = #24211#23384#21015#34920
      end
      object Label6: TLabel
        Left = 160
        Top = 24
        Width = 48
        Height = 13
        Caption = #24453#21457#21015#34920
      end
      object ListBoxALL: TsuiListBox
        Left = 16
        Top = 48
        Width = 89
        Height = 201
        UIStyle = MacOS
        BorderColor = 8355711
        Style = lbOwnerDrawFixed
        ItemHeight = 14
        TabOrder = 2
      end
      object ListBoxNOW: TsuiListBox
        Left = 144
        Top = 48
        Width = 89
        Height = 257
        UIStyle = MacOS
        BorderColor = 8355711
        Style = lbOwnerDrawFixed
        ItemHeight = 14
        TabOrder = 0
      end
      object suiButton3: TsuiButton
        Left = 16
        Top = 264
        Width = 80
        Height = 23
        Caption = #20462' '#25913
        AutoSize = False
        UIStyle = MacOS
        TabOrder = 1
        Transparent = False
        ModalResult = 0
        FocusedRectMargin = 2
        Layout = blGlyphLeft
        Spacing = 4
        MouseContinuouslyDownInterval = 100
        OnClick = suiButton3Click
        ResHandle = 0
      end
    end
    object suiButton4: TsuiButton
      Left = 392
      Top = 304
      Width = 80
      Height = 23
      Caption = #36864' '#20986
      AutoSize = False
      UIStyle = MacOS
      TabOrder = 6
      Transparent = False
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton4Click
      ResHandle = 0
    end
    object Edit1: TsuiEdit
      Left = 344
      Top = 85
      Width = 105
      Height = 19
      UIStyle = MacOS
      BorderColor = 8355711
      TabOrder = 2
    end
    object ProgressBar1: TsuiProgressBar
      Left = 144