Width = 240
Height = 224
Align = alRight
Caption = ''''类''''
TabOrder = 0
object ListBox1: TListBox
Left = 2
Top = 15
Width = 236
Height = 207
Align = alClient
ItemHeight = 13
TabOrder = 0
end
end
object Panel1: TPanel
Left = 0
Top = 224
Width = 510
Height = 124
Align = alBottom
Color = clCream
TabOrder = 1
end
object Button1: TButton
Left = 8
Top = 8
Width = 249
Height = 25
Caption = ''''载入包''''
TabOrder = 2
OnClick = Button1Click
end
object Button2: TButton
Left = 8
Top = 40
Width = 249
Height = 25
Caption = ''''创建所选中的类的实例在Panel上''''
TabOrder = 3
OnClick = Button2Click
end
object Memo1: TMemo
Left = 8
Top = 72
Width = 257
Height = 145
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 4
end
object OpenDialog1: TOpenDialog
Filter = ''''*.BPL|*.BPL''''
Left = 200
Top = 16
end
end
在这些基础上我们完全可以建立一个自己的Delphi的IDE，对象的属性的获得和设置用TYPInfo单元的RTTI类函数完全可以轻松搞定，我就不在这里多费口舌了。
记住了，编译时一定要用携带VCL.BPL 包的方式.
上一页 [1] [2] [3] |
