取用與設定物件屬性

uses TypInfo;


var
  PropInfo: PPropInfo;

begin

    PropInfo := GetPropInfo(ActiveControl.ClassInfo, 'Date');
    if PropInfo <> nil then
      SetPropValue(ActiveControl, 'Date', 0)

end