[ Pobierz całość w formacie PDF ]
.// Generowane s¹ dwa filtry://// ("", 0, CursoTypeInfo), czyli wszystkie w³aœciwoœæi typu TCursor// ("OnMouse*", 0, 0), czyli wszystkie w³aœciwoœci o nazwie// zaczynaj¹cej siê od OnMouse//// RegisterPropertiesInCategory(TMetaClass* ACategoryClass,// const System::TVarRec* AFilters,// const int AFilters_Size);PTypeInfo CursorTypeInfo= *Typinfo::GetPropInfo(__typeinfo(TForm),"Cursor")->PropType;RegisterPropertiesInCategory(__classid(TMouseCategory),ARRAYOFCONST(( CursorTypeInfo,AnsiString("OnMouse*"),AnsiString("EventName2") )) );// 3 - - Register two property filters for TMouseCategory.// The first filter is ("OnClick", 0, 0), i.e.for any property// (probably event) whose name is "OnClick".// The second filter is ("OnDblClick", 0, 0), i.e.for any property// (probably event) whose name is "OnDblClick".// Use :// RegisterPropertiesInCategory(TMetaClass* ACategoryClass,// TMetaClass* AComponentClass,// const AnsiString* AFilters,// const int AFilters_Size)// 3 - - Rejestracja dwóch filtrów w kategorii TMouseCategory.// Generowane s¹ dwa filtry://// ("OnClick", 0, 0), czyli dowolna w³aœciwoœæ o nazwie OnClick// ("OnDblClick", 0, 0), czyli dowolna w³aœciwoœæ o nazwie// OnDblClick//// RegisterPropertiesInCategory(TMetaClass* ACategoryClass,// TMetaClass* AComponentClass,// const AnsiString* AFilters,// const int AFilters_Size)TMetaClass* AnyComponent = 0;RegisterPropertiesInCategory( __classid(TMouseCategory),AnyComponent,OPENARRAY( AnsiString,("OnClick","OnDblClick") ) );}}Zwróæ uwagê, i¿ w trzecim przyk³adzie parametr okreœlaj¹cy dopuszczalny typkomponentu jest pustym wskaŸnikiem; nie mo¿na by³o u¿yæ w tej roli sta³ej 0,gdy¿ kompilator nie potrafi³by jednoznacznie okreœliæ w³aœciwego aspektuprzeci¹¿onej funkcji – sta³a 0 mog³aby bowiem równie dobrze oznaczaæ pustywskaŸnik PTypeInfo.W analogiczny sposób pusty wskaŸnik PTypeInfo w przyk³adzienr 2 nale¿a³oby zadeklarowaæ jako:PTypeInfo AnyPropertyType = 0;
[ Pobierz całość w formacie PDF ]