本文共 1544 字，大约阅读时间需要 5 分钟。

// 设置控件的属性名

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;

 

 

 

转载地址：http://dunti.baihongyu.com/