We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent e22e60d commit fa65e38Copy full SHA for fa65e38
Source/WrapDelphi.pas
@@ -3264,8 +3264,9 @@ class procedure TPyDelphiObject.ExposeMethods(AClass: TClass;
3264
Continue;
3265
3266
// Skip methods decleared in NearestAncestorClass and its ancestors
3267
- if (NearestAncestorClass <> nil) and ((AClass = NearestAncestorClass) or
3268
- not (AClass.InheritsFrom(NearestAncestorClass)))
+ LClass := (LRttiMethod.Parent as TRttiInstanceType).MetaclassType;
+ if (NearestAncestorClass <> nil) and ((LClass = NearestAncestorClass) or
3269
+ not (LClass.InheritsFrom(NearestAncestorClass)))
3270
then
3271
3272
0 commit comments