TFindComponentClassExEvent¶

type
  TFindComponentClassExEvent = procedure(Reader: TReader; 
                                       const aName: string; 
                                       const anUnitname: string; 
                                       const aClassName: string; 
                                       var ComponentClass: TComponentClass)
                                        of object;