記得要 uses typinfo;
代碼: 選擇全部
procedure Tform1.Button1Click(Sender: TObject);
var
PropInfo: PPropInfo;
i: integer;
begin
for i := 0 to ComponentCount-1 do
begin
PropInfo := GetPropInfo(Components[i].ClassInfo,'imename');
if PropInfo <> nil then
showmessage(Components[i].Name);
end;
end;
SetOrdProp
SetEnumProp
SetSetProp
SetObjectProp
SetStrProp
SetWideStrProp
SetFloatProp
SetVariantProp
SetMethodProp
SetInt64Prop
SetInterfaceProp
SetPropvalue
將 Set 改為 Get 即為取得該屬性
代碼: 選擇全部
procedure Tform1.Button1Click(Sender: TObject);
var
PropInfo: PPropInfo;
i: integer;
begin
for i := 0 to ComponentCount-1 do
begin
PropInfo := GetPropInfo(Components[i].ClassInfo,'imename');
if PropInfo <> nil then
// showmessage(Components[i].Name);
SetStrProp(Components[i], PropInfo, '中文 (繁體) - 注音');
end;
end;