⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 fmassigndemo.dfm

📁 这是不可多得的源代码
💻 DFM
字号:
object Form1: TForm1
  Left = 75
  Top = 138
  Width = 790
  Height = 358
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = CHINESEBIG5_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #26032#32048#26126#39636
  Font.Style = []
  OldCreateOrder = False
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 16
  object btnCreateSource: TButton
    Left = 130
    Top = 232
    Width = 169
    Height = 41
    Caption = 'Create Source'
    TabOrder = 0
    OnClick = btnCreateSourceClick
  end
  object btnCreateDest: TButton
    Left = 130
    Top = 272
    Width = 169
    Height = 41
    Caption = 'Create Dest'
    TabOrder = 1
    OnClick = btnCreateDestClick
  end
  object Button3: TButton
    Left = 306
    Top = 232
    Width = 169
    Height = 41
    Caption = 'Dest := Source'
    TabOrder = 2
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 306
    Top = 272
    Width = 169
    Height = 41
    Caption = 'Assign'
    TabOrder = 3
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 482
    Top = 232
    Width = 169
    Height = 41
    Caption = 'Shallow Copy'
    TabOrder = 4
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 482
    Top = 272
    Width = 169
    Height = 41
    Caption = 'Deep Copy'
    TabOrder = 5
    OnClick = Button6Click
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 241
    Height = 217
    Caption = 'Source'
    TabOrder = 6
    object eOuterName: TLabeledEdit
      Left = 16
      Top = 40
      Width = 209
      Height = 24
      EditLabel.Width = 76
      EditLabel.Height = 16
      EditLabel.Caption = 'Outer.Name'
      TabOrder = 0
    end
    object eOuterSize: TLabeledEdit
      Left = 16
      Top = 88
      Width = 209
      Height = 24
      EditLabel.Width = 65
      EditLabel.Height = 16
      EditLabel.Caption = 'Outer.Size'
      TabOrder = 1
    end
    object eInnerName: TLabeledEdit
      Left = 16
      Top = 136
      Width = 209
      Height = 24
      EditLabel.Width = 74
      EditLabel.Height = 16
      EditLabel.Caption = 'Inner.Name'
      TabOrder = 2
    end
    object eInnerSize: TLabeledEdit
      Left = 16
      Top = 184
      Width = 209
      Height = 24
      EditLabel.Width = 63
      EditLabel.Height = 16
      EditLabel.Caption = 'Inner.Size'
      TabOrder = 3
    end
  end
  object GroupBox2: TGroupBox
    Left = 528
    Top = 8
    Width = 241
    Height = 217
    Caption = 'Destination'
    TabOrder = 7
    object dOuterName: TLabeledEdit
      Left = 16
      Top = 40
      Width = 209
      Height = 24
      EditLabel.Width = 76
      EditLabel.Height = 16
      EditLabel.Caption = 'Outer.Name'
      TabOrder = 0
    end
    object dOuterSize: TLabeledEdit
      Left = 16
      Top = 88
      Width = 209
      Height = 24
      EditLabel.Width = 65
      EditLabel.Height = 16
      EditLabel.Caption = 'Outer.Size'
      TabOrder = 1
    end
    object dInnerName: TLabeledEdit
      Left = 16
      Top = 136
      Width = 209
      Height = 24
      EditLabel.Width = 74
      EditLabel.Height = 16
      EditLabel.Caption = 'Inner.Name'
      TabOrder = 2
    end
    object dInnerSize: TLabeledEdit
      Left = 16
      Top = 184
      Width = 209
      Height = 24
      EditLabel.Width = 63
      EditLabel.Height = 16
      EditLabel.Caption = 'Inner.Size'
      TabOrder = 3
    end
  end
  object GroupBox3: TGroupBox
    Left = 264
    Top = 8
    Width = 241
    Height = 217
    Caption = 'Objects Infomation'
    Color = clAqua
    ParentColor = False
    TabOrder = 8
    object eOuter1: TLabeledEdit
      Left = 16
      Top = 40
      Width = 209
      Height = 24
      EditLabel.Width = 96
      EditLabel.Height = 16
      EditLabel.Caption = 'Source-->Outer'
      TabOrder = 0
    end
    object eInner1: TLabeledEdit
      Left = 16
      Top = 88
      Width = 209
      Height = 24
      EditLabel.Width = 86
      EditLabel.Height = 16
      EditLabel.Caption = 'Surce-->Inner'
      TabOrder = 1
    end
    object eOuter2: TLabeledEdit
      Left = 16
      Top = 136
      Width = 209
      Height = 24
      EditLabel.Width = 81
      EditLabel.Height = 16
      EditLabel.Caption = 'Dest-->Outer'
      TabOrder = 2
    end
    object eInner2: TLabeledEdit
      Left = 16
      Top = 184
      Width = 209
      Height = 24
      EditLabel.Width = 79
      EditLabel.Height = 16
      EditLabel.Caption = 'Dest-->Inner'
      TabOrder = 3
    end
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -