bestlong 怕失憶論壇

標題: 根據 RTTI 給子對象的屬性賦值 [打印本頁]
作者: bestlong    時間: 2010-8-9 13:45     標題: 根據 RTTI 給子對象的屬性賦值

通過 RTTI 給對象的屬性賦值相信大家都知道, 相應資料比較多, 但如何用RTTI為含有子對象(如FONT)的屬性賦值?

屬性必須是 published 的, 也就是可以在運行期在 Object Inspector 上設置的屬性
  1. //uses typinfo

  3. //取得對象屬性值,如果存在
  4. function GetObjectProperty(const AObject : TObject; const APropName : string):TObject;
  5. var
  6.   PropInfo: PPropInfo;
  7. begin
  8.   Result := nil;
  9.   PropInfo := GetPropInfo(AObject.ClassInfo, APropName);
  10.   if Assigned(PropInfo) and (PropInfo^.PropType^.Kind = tkClass) then
  11.     Result := GetObjectProp(AObject, PropInfo);
  12. end;

  14. //給整數型態屬性賦值,如果存在
  15. function SetIntegerPropertyIfExists(const AObject : TObject; const APropName : string; const AValue : integer):Boolean;
  16. var
  17.   PropInfo:PPropInfo;
  18. begin
  19.   PropInfo := GetPropInfo(AObject.ClassInfo, APropName);
  20.   if Assigned(PropInfo) and (PropInfo^.PropType^.Kind = tkInteger) then
  21.   begin
  22.     SetOrdProp(AObject, PropInfo, AValue);
  23.     Result := True;
  24.   end else
  25.     Result := False;
  26. end;

  28. //調用,把窗體的 Font.Size 屬性設為 9
  29. procedure TFrmTest.FormCreate(Sender: TObject);
  30. var
  31.   objTemp : TObject;
  32. begin
  33.   objTemp := GetObjectProperty(Self, 'Font');
  34.   if Assigned(objTemp) then
  35.     SetIntegerPropertyIfExists(objTemp, 'Size', 9);
  36. end;
複製代碼




歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/) Powered by Discuz! X1.5