Порядок проверки типов в TfsCallMethodEvent
В обработчике TfsCallMethodEvent выжен порядок проверки типов Instance. Если в одном обработчике анализировать сразу несколько типов (ну не рубить же целую свинью из-за миски холодца ), то важно проверять от потомка к предку.
type
TDescendant = class(TAncestor)
...
function TWrapper.CallMethod(Instance: TObject; ClassType: TClass;
const MethodName: String; var Params: Variant): Variant;
...
if Instance is TDescendant then
...
else
if Instance is TAncestor then
...
Поскольку оператор is работает, как ему и положено, то в случае обратного порядка проверки предок ничего не оставит своим потомкам .