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);
プロパティ
| 種類 | 可視性 | ソース | ユニット | 親 |
|---|---|---|---|---|
type typedef |
public | System.Classes.pas System.Classes.hpp |
System.Classes | System.Classes |
説明
TFindAncestorEvent は、TWriter クラスの OnFindAncestor イベントで呼び出される手続きです。
Writer は、コンポーネントをフォーム ファイルにストリーミング出力しようとしているライタ コンポーネントです。
Component は、ストリーミング出力されようとしているコンポーネントです。
Name は上位コンポーネントの名前です。
このイベント ハンドラが起動されると、Ancestor は Component のプロパティの継承元となるコンポーネントになります（それがわかった場合）。上位コンポーネントがライタにわからない場合、Ancestor は nil（Delphi の場合）または NULL（C++ の場合）になります。このイベント ハンドラは Ancestor に Component の上位コンポーネントを設定します。
このイベント ハンドラが起動されると、RootAncestor はライタの RootAncestor プロパティの値になります。この値をイベント ハンドラで変更すると、プロパティの値が変更されます。
TFindAncestorEvent は内部的に使用するためのものです。