fmmain.dfm

多数代码可以直接在Delphi6和Delphi7环境下运行。部分涉及.NET技术内容的代码

object Form1: TForm1
  Left = 208
  Top = 124
  Width = 584
  Height = 564
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 16
  object BitBtn1: TBitBtn
    Left = 8
    Top = 224
    Width = 185
    Height = 49
    Caption = 'BitBtn1'
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 200
    Top = 224
    Width = 169
    Height = 49
    Caption = 'BitBtn2'
    TabOrder = 1
    OnClick = BitBtn2Click
  end
  object Button1: TButton
    Left = 8
    Top = 280
    Width = 193
    Height = 49
    Caption = 'Button1'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 208
    Top = 280
    Width = 161
    Height = 41
    Caption = 'Button2'
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 8
    Top = 336
    Width = 193
    Height = 41
    Caption = 'Button3'
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 208
    Top = 328
    Width = 161
    Height = 49
    Caption = 'Button4'
    TabOrder = 5
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 376
    Top = 224
    Width = 177
    Height = 41
    Caption = 'Button5'
    TabOrder = 6
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 376
    Top = 272
    Width = 177
    Height = 49
    Caption = 'Interface Delegation'
    TabOrder = 7
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 376
    Top = 328
    Width = 177
    Height = 49
    Caption = 'Class Delegation'
    TabOrder = 8
    OnClick = Button7Click
  end
  object LabeledEdit1: TLabeledEdit
    Left = 24
    Top = 400
    Width = 225
    Height = 24
    EditLabel.Width = 64
    EditLabel.Height = 16
    EditLabel.Caption = 'USD Rate'
    TabOrder = 9
  end
  object LabeledEdit2: TLabeledEdit
    Left = 304
    Top = 400
    Width = 225
    Height = 24
    EditLabel.Width = 64
    EditLabel.Height = 16
    EditLabel.Caption = 'RMB Rate'
    TabOrder = 10
  end
  object Button8: TButton
    Left = 8
    Top = 432
    Width = 177
    Height = 41
    Caption = 'Interface Property'
    TabOrder = 11
    OnClick = Button8Click
  end
  object Button9: TButton
    Left = 192
    Top = 432
    Width = 161
    Height = 41
    Caption = 'TInterfacedObject'
    TabOrder = 12
    OnClick = Button9Click
  end
  object Button10: TButton
    Left = 360
    Top = 432
    Width = 209
    Height = 41
    Caption = 'Interface RTTI'
    TabOrder = 13
    OnClick = Button10Click
  end
  object Button11: TButton
    Left = 8
    Top = 480
    Width = 177
    Height = 41
    Caption = 'Button11'
    TabOrder = 14
    OnClick = Button11Click
  end
  object ListBox1: TListBox
    Left = 8
    Top = 8
    Width = 545
    Height = 201
    ItemHeight = 16
    TabOrder = 15
  end
end