Как определить, является ли метод потомком TNotifyEventDelphi , Компоненты и Классы , RTTIКак определить, является ли метод потомком TNotifyEvent
Автор: Jack Sudarev If I am given a TPersistent object, and a method name, is there a way to determine if the name is an event of TNotifyEvent type? For example, given a TPersistent lMyObj and an event name, "OnDataChanged", how can I determine if OnDataChanged is a TNotifyEvent? function IsNotifyEvent(Sender: TObject; const Event: string): Boolean; var PropInfo: PPropInfo; Method: TNotifyEvent; begin Result := False; PropInfo := GetPropInfo(Sender.ClassInfo, Event); if not Assigned(PropInfo) then Exit; if PropInfo.PropType^.Kind <> tkMethod then Exit; Method := TNotifyEvent(GetMethodProp(Sender, PropInfo)); Result := Assigned(Method); end; Статья Как определить, является ли метод потомком TNotifyEvent раздела Компоненты и Классы RTTI может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |