Source position: extctrls.pp line 39
type TBeforeShowPageEvent = procedure(
ASender: TObject;
ANewPage: TPage;
ANewIndex: Integer
) of object;