Delphi 使用 RTTI 动态通过名称调用函数和设置控件属性值

最新推荐文章于 2025-08-17 18:06:14 发布

原创最新推荐文章于 2025-08-17 18:06:14 发布 · 6.5k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #integer #path #string #button #function

Web 开发专栏收录该内容

9 篇文章

订阅专栏

本文介绍了如何在Delphi中利用RTTI（运行时类型信息）动态地设置控件属性，如通过路径设置按钮的Caption和Width，以及隐藏Label。此外，还展示了如何动态调用对象的方法，包括无参数的过程和带参数的函数。

// 设置控件的属性名
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;