C++ Builder 參考手冊 ? 枚舉控件所有的屬性管削、事件和方法
- 獲取控件的成員
- 枚舉所有的屬性和事件
- 枚舉所有的方法
- 枚舉所有的成員變量
- 完整的例子
一. 獲取控件的成員
所有從 TObject 繼承的類都可以獲取成員信息糯钙，不僅僅是控件。
1. 獲取 TRttiType
首先使用 TRttiContext 的 GetType 方法獲取 TObject 繼承的類的類型信息 TRttiType：
TRttiType *GetType(System::TClass AClass);
這個函數(shù)的參數(shù)是 System::TClass 類型的电抚。
- 如果是從 TObject 繼承的類，可以通過 TObject 的 ClassType() 方法獲得 System::TClass竖共，例如
Button1->ClassType()蝙叛； - 如果要通過類型來獲取 System::TClass，可以通過 __classid(類型)公给，例如
__classid(TButton)借帘。
獲取 TRttiType * 的完整的寫法：
TRttiContext RttiCtx;
TRttiType *pRttiType = RttiCtx.GetType(Button1->ClassType());
或者
TRttiContext RttiCtx;
TRttiType *pRttiType = RttiCtx.GetType(__classid(TButton));
2. 獲取屬性、事件淌铐、方法和變量表
通過 TRttiType 的 GetProperties 方法獲取屬性和事件表肺然；
通過 TRttiType 的 GetMethods 方法獲取方法 (成員函數(shù)) 表；
通過 TRttiType 的 GetFields 方法獲取成員變量表腿准。
DynamicArray<TRttiProperty *> aProperties = pRttiType->GetProperties();
DynamicArray<TRttiMethod *> aMethods = pRttiType->GetMethods();
DynamicArray<TRttiField *> aFields = pRttiType->GetFields();
二. 枚舉所有的屬性和事件
通過 TRttiType 的 GetProperties 方法獲取屬性和事件表放在了 DynamicArray<TRttiProperty *> 動態(tài)數(shù)組里面际起，數(shù)組的每一個元素是一個 TRttiProperty *。
- 通過 TRttiProperty 的 PropertyType 屬性可以獲取屬性的變量類型吐葱；
- 通過 TRttiProperty 的 Name 屬性可以獲取這個屬性的名字街望；
- 通過 TRttiProperty 的 TValue GetValue(TObject *pObject) 方法，可以獲取 pObject 對象的這個屬性的屬性值弟跑。
屬性名稱和屬性的類型是類型的屬性它匕，通過類型信息就可以直接獲取到，而屬性的值是類的每個對象的屬性窖认，所以獲取屬性值必須指定具體的對象豫柬。
三. 枚舉所有的方法
通過 TRttiType 的 GetMethods 方法獲取方法 (成員函數(shù)) 表放在了 DynamicArray<TRttiMethod *> 動態(tài)數(shù)組里面，數(shù)組的每一個元素是一個 TRttiMethod *扑浸。
- 通過 TRttiMethod 的 Name 屬性可以獲取這個方法的函數(shù)名烧给；
- 通過 TRttiMethod 的 ReturnType 屬性可以獲取這個方法的函數(shù)返回值的類型；
- 通過 TRttiMethod 的 GetParameters 方法可以獲取這個方法的函數(shù)的每個參數(shù)喝噪，存放在 DynamicArray<TRttiParameter *> 數(shù)組里面础嫡；
- 通過 TRttiParameter 的 Name 屬性可以獲取函數(shù)的參數(shù)的名稱；
- 通過 TRttiParameter 的 ParamType 屬性可以獲取函數(shù)的參數(shù)的變量類型酝惧。
四. 枚舉所有的成員變量
通過 TRttiType 的 GetFields 方法獲取成員變量表放在了 DynamicArray<TRttiField *> 動態(tài)數(shù)組里面榴鼎，數(shù)組的每一個元素是一個 TRttiField *。
- 通過 TRttiField 的 Name 屬性可以獲取這個變量的變量名晚唇；
- 通過 TRttiField 的 FieldType 屬性可以獲取這個變量的變量類型巫财；
- 通過 TRttiField 的 TValue GetValue(TObject *pObject) 方法，可以獲取 pObject 對象的這個變量的變量值哩陕。
變量名和變量類型是類型的屬性平项，通過類型信息就可以直接獲取到，而變量的值是類的每個對象的屬性悍及，所以獲取變量值必須指定具體的對象闽瓢。
五. 完整的例子
- 函數(shù) ShowAllMembers 參數(shù)可以是任意從 TObject 繼承過來的類的對象，包括控件心赶，可以顯示這個對象所有的成員及成員的值扣讼；
- 模板函數(shù) EnumValName 把枚舉型的值轉成這個值的名字的字符串；
- 函數(shù) ValueToStr 把 TValue 值轉成字符串缨叫；
- 函數(shù) ShowProperties 把屬性顯示到 Memo1 里面椭符，把事件顯示到 Memo2 里面；
- 函數(shù) ShowMethods 把方法顯示到 Memo3 里面弯汰；
- 函數(shù) ShowFields 把變量顯示到 Memo4 里面艰山。
這個例子顯示 Edit1 編輯框的所有的成員，包括屬性咏闪、事件曙搬、方法、變量鸽嫂，如果要顯示其他控件的成員纵装，只需要 ShowAllMembers 的參數(shù)改成要顯示的控件就可以了。
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ShowAllMembers(Edit1);
}
//---------------------------------------------------------------------------
template<class T>
UnicodeString EnumValName(T t)
{
return Typinfo::GetEnumName(__delphirtti(T), (int)t);
}
//---------------------------------------------------------------------------
UnicodeString ValueToStr(TValue &Val)
{
UnicodeString sValue;
try
{
if(Val.IsEmpty)
{
sValue = L"NULL";
}
else
{
sValue = Val.ToString();
}
}
catch(Exception &e)
{
sValue = L"Error (" + e.ClassName() + L"): " + e.Message;
}
return sValue;
}
//---------------------------------------------------------------------------
void TForm1::ShowAllMembers(TObject *pObject)
{
TRttiContext RttiCtx;
TRttiType *pRttiType = RttiCtx.GetType(pObject->ClassType());
if(pRttiType)
{
DynamicArray<TRttiProperty *> aProperties = pRttiType->GetProperties();
DynamicArray<TRttiMethod *> aMethods = pRttiType->GetMethods();
DynamicArray<TRttiField *> aFields = pRttiType->GetFields();
ShowProperties(pObject, aProperties);
ShowMethods(pObject, aMethods);
ShowFields(pObject, aFields);
}
}
//---------------------------------------------------------------------------
void TForm1::ShowProperties(TObject *pObject, DynamicArray<TRttiProperty *> &aProperties)
{
for(int i=0; i<aProperties.Length; i++)
{
TRttiProperty *pProperty = aProperties[i];
TTypeKind TpKind = pProperty->PropertyType->TypeKind; // 屬性的類型
UnicodeString sName = pProperty->Name; // 屬性的名字
UnicodeString sValue;
try
{
TValue Val = pProperty->GetValue(pObject);
sValue = ValueToStr(Val);
}
catch(Exception &e)
{
sValue = L"Error (" + e.ClassName() + L"): " + e.Message;
}
if(TpKind == tkMethod) // 事件
Memo2->Lines->Add(sName + L" = " + sValue);
else // 屬性
Memo1->Lines->Add(sName + L" = " + sValue);
}
}
//---------------------------------------------------------------------------
void TForm1::ShowMethods(TObject *pObject, DynamicArray<TRttiMethod *> &aMethods)
{
for(int iMethodIdx=0; iMethodIdx<aMethods.Length; iMethodIdx++)
{
TRttiMethod *pMethod = aMethods[iMethodIdx];
UnicodeString sMethodName = pMethod->Name;
DynamicArray<TRttiParameter *> aParameters = pMethod->GetParameters();
UnicodeString sRetType;
if(pMethod->ReturnType)
{
TTypeKind tRetKind = pMethod->ReturnType->TypeKind;
sRetType = EnumValName(tRetKind);
}
else
{
sRetType = L"void";
}
UnicodeString sMethodStr = sRetType + L" " + sMethodName + L"(";
for(int iParamIdx=0; iParamIdx<aParameters.Length; iParamIdx++)
{
TRttiParameter *pParameter = aParameters[iParamIdx];
UnicodeString sPmName = pParameter->Name;
UnicodeString sPmType;
if(pParameter->ParamType)
{
TTypeKind tPmKind = pParameter->ParamType->TypeKind;
sPmType = EnumValName(tPmKind);
}
else
{
sPmType = L"void *";
}
if(iParamIdx)
sMethodStr += L", ";
sMethodStr += sPmType + L" " + sPmName;
}
sMethodStr += L");";
Memo3->Lines->Add(sMethodStr);
}
}
//---------------------------------------------------------------------------
void TForm1::ShowFields(TObject *pObject, DynamicArray<TRttiField *> &aFields)
{
for(int i=0; i<aFields.Length; i++)
{
TRttiField *pField = aFields[i];
UnicodeString sName = pField->Name;
UnicodeString sValue;
try
{
TValue Val = pField->GetValue(pObject);
sValue = ValueToStr(Val);
}
catch(Exception &e)
{
sValue = L"Error (" + e.ClassName() + L"): " + e.Message;
}
Memo4->Lines->Add(sName + L" = " + sValue);
}
}
//---------------------------------------------------------------------------
運行結果：
運行結果：Edit1 的屬性
運行結果：Edit1 的事件
運行結果：Edit1 的方法
運行結果：Edit1 的變量
相關：
C++ Builder 參考手冊 ? 枚舉控件所有的屬性据某、事件和方法
