home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 127
- Top = 81
- Width = 474
- Height = 296
- Caption = 'Hex Address'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- TextHeight = 16
- object Label1: TLabel
- Left = 232
- Top = 72
- Width = 25
- Height = 11
- Caption = 'Label1'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 200
- Top = 72
- Width = 25
- Height = 11
- Caption = 'CSeg:'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ParentFont = False
- end
- object Label3: TLabel
- Left = 16
- Top = 16
- Width = 104
- Height = 11
- Caption = 'Address of Child Method'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ParentFont = False
- end
- object Label4: TLabel
- Left = 160
- Top = 16
- Width = 111
- Height = 11
- Caption = 'Address of Parent Method'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ParentFont = False
- end
- object Label5: TLabel
- Left = 304
- Top = 16
- Width = 134
- Height = 11
- Caption = 'Non-polymorphic parent method'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ParentFont = False
- end
- object PressMe: TButton
- Left = 184
- Top = 224
- Width = 89
- Height = 33
- Caption = 'Press Me'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = PressMeClick
- end
- object Edit1: TEdit
- Left = 16
- Top = 32
- Width = 137
- Height = 24
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- Text = 'Edit1'
- end
- object Edit2: TEdit
- Left = 160
- Top = 32
- Width = 137
- Height = 24
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- Text = 'Edit2'
- end
- object ListBox1: TListBox
- Left = 152
- Top = 96
- Width = 153
- Height = 121
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = []
- ItemHeight = 16
- ParentFont = False
- TabOrder = 3
- end
- object Edit3: TEdit
- Left = 304
- Top = 32
- Width = 137
- Height = 24
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- Text = 'Edit3'
- end
- end
-