udy.dfm

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

object frmdy: Tfrmdy
  Left = 258
  Top = 186
  BorderStyle = bsNone
  Caption = 'frmdy'
  ClientHeight = 388
  ClientWidth = 477
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 477
    Height = 388
    Align = alClient
    BevelOuter = bvNone
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Shape2: TShape
      Left = 0
      Top = 30
      Width = 477
      Height = 358
      Align = alClient
      Brush.Color = clActiveBorder
      Pen.Color = clTeal
      Pen.Width = 4
    end
    object Shape1: TShape
      Left = 0
      Top = 0
      Width = 477
      Height = 30
      Align = alTop
      Brush.Color = clTeal
      Pen.Color = clTeal
      Pen.Width = 2
      OnMouseDown = Shape1MouseDown
    end
    object Label4: TLabel
      Left = 210
      Top = 10
      Width = 72
      Height = 12
      Caption = #30701#35821#20449#24687#31649#29702
      Transparent = True
      OnMouseDown = Shape1MouseDown
    end
    object PageControl1: TPageControl
      Left = 8
      Top = 36
      Width = 462
      Height = 345
      ActivePage = TabSheet2
      Images = ImageList1
      MultiLine = True
      Style = tsFlatButtons
      TabIndex = 1
      TabOrder = 0
      TabWidth = 222
      object TabSheet1: TTabSheet
        Caption = #30701#35821#20998#32452#31649#29702
        object Label1: TLabel
          Left = 0
          Top = 3
          Width = 108
          Height = 12
          Caption = '#'#30701#35821#20998#32452#21517#31216#21015#34920'#'
        end
        object Label2: TLabel
          Left = 223
          Top = 135
          Width = 60
          Height = 12
          Caption = #20998#32452#32534#21495#65306
          Visible = False
        end
        object Label3: TLabel
          Left = 223
          Top = 162
          Width = 60
          Height = 12
          Caption = #20998#32452#21517#31216#65306
        end
        object Edit1: TEdit
          Left = 279
          Top = 129
          Width = 153
          Height = 20
          BevelInner = bvNone
          BevelKind = bkFlat
          BevelOuter = bvNone
          Color = clInfoBk
          OEMConvert = True
          ReadOnly = True
          TabOrder = 0
          Visible = False
        end
        object Edit2: TEdit
          Left = 279
          Top = 157
          Width = 153
          Height = 20
          Color = clInfoBk
          TabOrder = 1
        end
        object ToolBar1: TToolBar
          Left = 208
          Top = 270
          Width = 248
          Height = 41
          Align = alNone
          ButtonHeight = 35
          ButtonWidth = 31
          Caption = 'ToolBar1'
          EdgeBorders = [ebTop, ebBottom]
          Flat = True
          Images = ImageList2
          ShowCaptions = True
          TabOrder = 2
          object ToolButton4: TToolButton
            Left = 0
            Top = 0
            Width = 8
            Caption = 'ToolButton4'
            ImageIndex = 2
            Style = tbsSeparator
          end
          object ToolButton3: TToolButton
            Left = 8
            Top = 0
            Caption = #22686#21152
            ImageIndex = 1
            OnClick = ToolButton3Click
          end
          object ToolButton2: TToolButton
            Left = 39
            Top = 0
            Width = 8
            Caption = 'ToolButton2'
            ImageIndex = 1
            Style = tbsSeparator
          end
          object ToolButton5: TToolButton
            Left = 47
            Top = 0
            Caption = #20462#25913
            ImageIndex = 2
            OnClick = ToolButton5Click
          end
          object ToolButton7: TToolButton
            Left = 78
            Top = 0
            Width = 8
            Caption = 'ToolButton7'
            ImageIndex = 4
            Style = tbsSeparator
          end
          object ToolButton6: TToolButton
            Left = 86
            Top = 0
            Caption = #21024#38500
            ImageIndex = 3
            OnClick = ToolButton6Click
          end
          object ToolButton9: TToolButton
            Left = 117
            Top = 0
            Width = 8
            Caption = 'ToolButton9'
            ImageIndex = 2
            Style = tbsSeparator
          end
          object ToolButton1: TToolButton
            Left = 125
            Top = 0
            Caption = #20445#23384
            ImageIndex = 0
            OnClick = ToolButton1Click
          end
          object ToolButton8: TToolButton
            Left = 156
            Top = 0
            Width = 8
            Caption = 'ToolButton8'
            ImageIndex = 1
            Style = tbsSeparator
          end
          object ToolButton12: TToolButton
            Left = 164
            Top = 0
            Caption = #21462#28040
            ImageIndex = 5
            OnClick = ToolButton12Click
          end
          object ToolButton13: TToolButton
            Left = 195
            Top = 0
            Width = 8
            Caption = 'ToolButton13'
            ImageIndex = 6
            Style = tbsSeparator
          end
          object ToolButton10: TToolButton
            Left = 203
            Top = 0
            Caption = #36864#20986
            ImageIndex = 4
            OnClick = ToolButton10Click
          end
          object ToolButton11: TToolButton
            Left = 234
            Top = 0
            Width = 8
            Caption = 'ToolButton11'
            ImageIndex = 5
            Style = tbsSeparator
          end
        end
        object DBGrid1: TDBGrid
          Left = 0
          Top = 24
          Width = 201
          Height = 285
          Color = clInfoBk
          DataSource = DataSource1
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          ReadOnly = True
          TabOrder = 3
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'dyfzid'
              Title.Alignment = taCenter
              Title.Caption = #20998#32452#32534#21495
              Visible = False
            end
            item
              Expanded = False
              FieldName = 'dyfzname'
              Title.Alignment = taCenter
              Title.Caption = #20998#32452#21517#31216
              Width = 179
              Visible = True
            end>
        end
      end
      object TabSheet2: TTabSheet
        Caption = #30701#35821#20449#24687#31649#29702
        ImageIndex = 1
        object Label5: TLabel
          Left = 0
          Top = 4
          Width = 84
          Height = 12
          Caption = '#'#30701#35821#20449#24687#21015#34920'#'
        end
        object Label6: TLabel
          Left = 2
          Top = 254
          Width = 90
          Height = 12
          Caption = '*'#25152#23646#20998#32452#32534#21495#65306
          Visible = False
        end
        object Label7: TLabel
          Left = 26
          Top = 267
          Width = 66
          Height = 12
          Caption = '*'#30701#35821#32534#21495#65306
          Visible = False
        end
        object Label8: TLabel
          Left = 26
          Top = 225
          Width = 66
          Height = 12
          Caption = '*'#30701#35821#20869#23481#65306
        end