摘要: 下面以 TPoint 为例, 用 TRttiRecordType 读取了结构的信息.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMe... 阅读全文
posted @ 2009-10-15 22:08 万一 阅读(3929) 评论(1) 推荐(0) 编辑
摘要: 任何数据类型中 Rtti 中都有对应的获取信息的类, 有序类型对应的是 TRttiOrdinalType.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm)... 阅读全文
posted @ 2009-10-15 21:25 万一 阅读(3745) 评论(5) 推荐(0) 编辑
摘要: 通过 Rtti 还能够调用一个类的方法, 也能读取或设置其属性值.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; 阅读全文
posted @ 2009-10-15 17:34 万一 阅读(6235) 评论(14) 推荐(0) 编辑
摘要: 通过 Rtti 单元的 TRttiContext(是个 record), 可以方便地获取类的方法、属性、字段的列表.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(T... 阅读全文
posted @ 2009-10-15 16:23 万一 阅读(10575) 评论(4) 推荐(2) 编辑
摘要: 本例效果动画图(因不是触摸屏, 只能用鼠标测试一下):代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Keyboard, TeCanvas;type TForm1 = class(TForm) ... 阅读全文
posted @ 2009-10-15 12:21 万一 阅读(10585) 评论(3) 推荐(0) 编辑