Delphi 使用 RTTI 动态通过名称调用函数和设置控件属性值
来源:互联网 发布:java 设置md5长度 编辑:程序博客网 时间:2024/05/21 04:23
// 设置控件的属性名
uses TypInfo, JclAnsiStrings;
function GetObject(obj:TObject; path:String): TObject;
var objName:String;
begin
Result := obj;
while System.Length(path) > 0 do begin
objName := JclAnsiStrings.StrToken(path, '.');
if obj is TComponent then begin
Result := TComponent(Result).FindComponent(objName);
end else begin
Result := TypInfo.GetObjectProp(Result, objName);
end;
end;
end;
procedure SetPropValue(obj:TObject; path:String; value:Variant);
var tk:TTypeKind;
i:Integer;
propName:String;
begin
i := JclAnsiStrings.StrLastPos('.', path);
if i > 0 then begin
obj:= GetObject(obj, JclAnsiStrings.StrLeft(path, i-1));
propName:= JclAnsiStrings.StrRestOf(path, i+1);
end else begin
propName := path;
end;
TypInfo.SetPropValue(obj, propName, value);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetPropValue(Self, 'button1.caption', 'test');
SetPropValue(Self, 'button1.width', '200');
SetPropValue(Self, 'label1.Visible', false);
end;
// 动态调用函数/过程
type
TMyProcedure = procedure of object;
TMyMethod = function(x, y: Integer): integer of object;
function GetMethod(obj: TObject; MethodName: string): TMethod;
var Rounte: TMethod;
begin
Result := nil;
Rounte.Data := Pointer(obj);
Rounte.Code := obj.MethodAddress(MethodName);
if not System.Assigned(Rounte.Code) then Exit;
Result := Rounte;
end;
procedure Form1.Button1Click(Sender:TObject);
var m1: TMyProcedure;
m2: TMyMethod;
i:Integer;
begin
m1 := TMyProcedure(GetMethod(Self, 'show'));
m1(); // execute
m2 := TMyMethod(GetMethod(), 'Add');
i := m2(1,2); // execute
end;
- Delphi 使用 RTTI 动态通过名称调用函数和设置控件属性值
- 通过RTTI使Delphi和JavaScript互通
- android 通过组件属性动态创建控件并设置布局
- Delphi中的Rtti函数
- 使用反射通过字符串动态调用函数
- 使用反射通过字符串动态调用函数
- DELPHI中使用RTTI
- Delphi RTTI 使用
- java 通过方法名称动态调用方法
- 动态设置控件属性的值
- Delphi RTTI 动态创建Form
- 动态1:由函数名称调用函数
- 动态1:由函数名称调用函数
- 按控件实例名称及其属性名称实现动态赋值
- 按控件实例名称及其属性名称实现动态赋值
- delphi静态和动态调用api函数详解
- delphi RTTI的主要函数和应用示例
- delphi通过函数名动态调用函数的方法(方便功能的扩展)
- 查看.o, .obj文件符号列表,强大的nm命令
- 一个Asp.net下word在线编辑、全文关键字搜索的完整示例
- 深入理解Linux启动过程
- InputStream 和 byte[] 互转
- Setting color and font attribute for individual items (单独设置CTreectrl 的item 的颜色 与字体)
- Delphi 使用 RTTI 动态通过名称调用函数和设置控件属性值
- 打开页面只自动刷新一次
- ASP.Net控制不同的人编辑word文档中不同的可编辑区域的完整示例
- SQL 连接
- 分享两道华为的C语言上机题——包含答案。
- web中的下拉菜单与soaoffice控件
- 控制用户打开excel文件后只能查看和编辑指定的Sheet页
- 没有积分。
- 使用.htaccess