System.Classes.TFindAncestorEvent
Delphi
TFindAncestorEvent = procedure (Writer: TWriter; Component: TComponent;
const Name: string; var Ancestor, RootAncestor: TComponent) of object;
C++
typedef void __fastcall (__closure *TFindAncestorEvent)(TWriter* Writer, TComponent* Component, const System::UnicodeString Name, TComponent* &Ancestor, TComponent* &RootAncestor);
Properties
| Type | Visibility | Source | Unit | Parent |
|---|---|---|---|---|
type typedef |
public | System.Classes.pas System.Classes.hpp |
System.Classes | System.Classes |
Description
TFindAncestorEvent is a procedure called by the TWriter class OnFindAncestor event.
Writer is the writer component that is streaming a component to a form file.
Component is the component that is being streamed out.
Name is the name of the ancestor component.
On entry to the event handler, Ancestor is the component from which Component inherits its properties (if this is known). If the writer does not know the ancestor component, Ancestor is nil (Delphi) or NULL (C++). The event handler sets Ancestor to the ancestor component for Component.
On entry to the event handler, RootAncestor is the value of the writer's RootAncestor property. Changing this value in the event handler changes the value of the property.
TFindAncestorEvent is for internal use only.