unit1.~dfm

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

    end
    object Editname: TsuiEdit
      Left = 200
      Top = 45
      Width = 105
      Height = 19
      BorderColor = 8355711
      TabOrder = 0
    end
    object Editpassword: TsuiEdit
      Left = 376
      Top = 45
      Width = 97
      Height = 19
      BorderColor = 8355711
      PasswordChar = '*'
      TabOrder = 1
    end
    object Memo1: TsuiMemo
      Left = 144
      Top = 112
      Width = 337
      Height = 137
      BorderColor = 8355711
      TabOrder = 3
      OnChange = Memo1Change
    end
    object StatusBar1: TStatusBar
      Left = 0
      Top = 334
      Width = 509
      Height = 19
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      Panels = <
        item
          Text = '本软使用TOM网关，请先到www.tom.com获取用户名与密码。'
          Width = 400
        end
        item
          Text = '小强制作'
          Width = 50
        end>
      ParentColor = True
      SimplePanel = False
      SimpleText = '本软使用TOM网关，请先到www.tom.com注册。'
      UseSystemFont = False
    end
    object suiButton1: TsuiButton
      Left = 144
      Top = 304
      Width = 80
      Height = 23
      UIStyle = MacOS
      Caption = '注　册'
      AutoSize = False
      TabOrder = 4
      Transparent = False
      ModalResult = 0
      Layout = blGlyphLeft
      Spacing = 4
      ResHandle = 0
      OnClick = suiButton1Click
    end
    object suiButton2: TsuiButton
      Left = 272
      Top = 304
      Width = 80
      Height = 23
      UIStyle = MacOS
      Caption = '发 送'
      AutoSize = False
      Enabled = False
      TabOrder = 5
      Transparent = False
      ModalResult = 0
      Layout = blGlyphLeft
      Spacing = 4
      ResHandle = 0
      OnClick = suiButton2Click
    end
    object suiSideChannel1: TsuiSideChannel
      Left = 0
      Top = 23
      Width = 249
      Height = 311
      SideBarColor = 15198183
      SideBarWidth = 10
      Align = suiLeft
      StayOn = False
      Color = 15198183
      PopupMode = suiMouseOn
      QuickMove = False
      OnCanResize = suiSideChannel1CanResize
      OnPush = suiSideChannel1Push
      object Label5: TLabel
        Left = 24
        Top = 24
        Width = 56
        Height = 14
        Caption = '库存列表'
      end
      object Label6: TLabel
        Left = 160
        Top = 24
        Width = 56
        Height = 14
        Caption = '待发列表'
      end
      object FlatSpeedButton1: TFlatSpeedButton
        Left = 112
        Top = 168
        Width = 25
        Height = 25
        Caption = '<<'
        OnClick = FlatSpeedButton1Click
      end
      object ListBoxALL: TsuiListBox
        Left = 16
        Top = 48
        Width = 89
        Height = 201
        BorderColor = 8355711
        ItemHeight = 14
        TabOrder = 2
      end
      object ListBoxNOW: TsuiListBox
        Left = 144
        Top = 48
        Width = 89
        Height = 257
        BorderColor = 8355711
        ItemHeight = 14
        TabOrder = 3
      end
      object FlatButton1: TFlatButton
        Left = 112
        Top = 72
        Width = 25
        Height = 25
        Caption = '>>'
        TabOrder = 4
        OnClick = FlatButton1Click
      end
      object FlatButton2: TFlatButton
        Left = 112
        Top = 104
        Width = 25
        Height = 25
        Caption = '>'
        TabOrder = 5
        OnClick = FlatButton2Click
      end
      object FlatButton3: TFlatButton
        Left = 112
        Top = 136
        Width = 25
        Height = 25
        Caption = '<'
        TabOrder = 6
        OnClick = FlatButton3Click
      end
      object suiButton3: TsuiButton
        Left = 16
        Top = 264
        Width = 80
        Height = 23
        UIStyle = MacOS
        Caption = '修 改'
        AutoSize = False
        TabOrder = 7
        Transparent = False
        ModalResult = 0
        Layout = blGlyphLeft
        Spacing = 4
        ResHandle = 0
        OnClick = suiButton3Click
      end
    end
    object suiButton4: TsuiButton
      Left = 392
      Top = 304
      Width = 80
      Height = 23
      UIStyle = MacOS
      Caption = '退 出'
      AutoSize = False
      TabOrder = 6
      Transparent = False
      ModalResult = 0
      Layout = blGlyphLeft
      Spacing = 4
      ResHandle = 0
      OnClick = suiButton4Click
    end
    object Edit1: TsuiEdit
      Left = 344
      Top = 85
      Width = 105
      Height = 19
      BorderColor = 8355711
      TabOrder = 2
    end
    object ProgressBar1: TsuiProgressBar
      Left = 144
      Top = 280
      Width = 337
      Height = 12
      UIStyle = MacOS
      CaptionColor = clBlack
      ShowCaption = False
      SmartShowCaption = False
      Max = 100
      Min = 0
      Position = 0
      Orientation = suiHorizontal
      BorderColor = 8355711
      Color = 15198183
      Picture.Data = {
        07544269746D6170D6040000424DD60400000000000036040000280000000D00
        00000A0000000100080000000000A00000000000000000000000000100000000
        000000000000FF