unit1.dfm

这是一个演示程序

object Form1: TForm1
  Left = 229
  Top = 133
  Width = 678
  Height = 420
  Caption = 'Delphi Object-Model and Interface learning'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel3: TPanel
    Left = 417
    Top = 0
    Width = 253
    Height = 386
    Align = alClient
    BorderWidth = 1
    BorderStyle = bsSingle
    TabOrder = 0
    object Panel6: TPanel
      Left = 2
      Top = 339
      Width = 245
      Height = 41
      Align = alBottom
      TabOrder = 0
      object Button1: TButton
        Left = 16
        Top = 9
        Width = 217
        Height = 25
        Caption = 'PRESS ME TO SWITCH INFOMATIONS'
        TabOrder = 0
        OnClick = Button1Click
      end
    end
    object InfoMemo: TMemo
      Left = 2
      Top = 2
      Width = 245
      Height = 337
      Align = alClient
      OEMConvert = True
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 1
    end
  end
  object Panel7: TPanel
    Left = 0
    Top = 0
    Width = 417
    Height = 386
    Align = alLeft
    TabOrder = 1
    object Panel2: TPanel
      Left = 1
      Top = 193
      Width = 415
      Height = 192
      Align = alBottom
      BorderWidth = 1
      BorderStyle = bsSingle
      TabOrder = 0
      object LV1: TListView
        Left = 2
        Top = 43
        Width = 407
        Height = 143
        Align = alClient
        Columns = <
          item
            Caption = 'Address'
          end
          item
            Caption = 'Offset'
            Width = 40
          end
          item
            Caption = 'Value'
          end
          item
            Caption = 'Information'
            Width = 250
          end>
        FlatScrollBars = True
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
      end
      object Panel4: TPanel
        Left = 2
        Top = 2
        Width = 407
        Height = 41
        Align = alTop
        TabOrder = 1
        object Label2: TLabel
          Left = 32
          Top = 13
          Width = 121
          Height = 13
          AutoSize = False
          Caption = 'Select Object to show:'
        end
        object CB1: TComboBox
          Tag = 1
          Left = 184
          Top = 8
          Width = 129
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 0
          OnChange = CB2Change
          Items.Strings = (
            'InterfacedObjectA'
            'InterfacedObjectB'
            'MyInterfacedObjectA'
            'MyInterfacedObjectB')
        end
      end
    end
    object Panel1: TPanel
      Left = 1
      Top = 1
      Width = 415
      Height = 192
      Align = alTop
      TabOrder = 1
      object LV2: TListView
        Left = 1
        Top = 33
        Width = 413
        Height = 158
        Align = alClient
        Columns = <
          item
            Caption = 'Address'
          end
          item
            Caption = 'Offset'
            Width = 40
          end
          item
            Caption = 'Value'
          end
          item
            Caption = 'Information'
            Width = 250
          end>
        FlatScrollBars = True
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
      end
      object Panel5: TPanel
        Left = 1
        Top = 1
        Width = 413
        Height = 32
        Align = alTop
        TabOrder = 1
        object Label1: TLabel
          Left = 56
          Top = 11
          Width = 121
          Height = 13
          AutoSize = False
          Caption = 'Select Object to show:'
        end
        object CB2: TComboBox
          Tag = 2
          Left = 208
          Top = 3
          Width = 129
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 0
          OnChange = CB2Change
          Items.Strings = (
            'InterfacedObjectA'
            'InterfacedObjectB'
            'MyInterfacedObjectA'
            'MyInterfacedObjectB')
        end
      end
    end
  end
end