Class TWABD_Parent (unit WABD_Objects)

Inherits from

TWABD_Object

Constructors


constructor Create(AOwner: TComponent);

************************************************************************ TWABD_Parent


Functions

function ChildByName(ChildName: string): TWABD_Object;


destructor Destroy;


function ForEachChild(ForEachProc: TWABD_ForEach; UserData: pointer): boolean;

Default is to do nothing

function Object_To_Control(AOwner: TWinControl): TControl;


procedure ButCapProc(Child: TWABD_Object; var Stop: boolean; UserData: pointer);


function ButtonByCaption(Caption: string): TWABD_Button;


procedure ChildChanged(Sender: TObject);


procedure ChildNameProc(Child: TWABD_Object; var Stop: boolean; UserData: pointer);

Search for "grandchildren" if necessary

procedure DefButProc(Child: TWABD_Object; var Stop: boolean; UserData: pointer);


function GetDefaultButton: TWABD_Button;


function GetWABDObjCount: integer;


function GetWABDObjects(i: integer): TWABD_Object;

TRACE('END DESTROYING Parent: %s (%s)', [Name, ClassName]); TRACE0('');

procedure Loaded;


Properties

property ChildCount : integer


property Children : TWABD_Object


Events

Variables

FWABD_Objs : TList;


TheChild : TWABD_Object;


tmp : string;



Constructors


constructor Create(AOwner: TComponent);

************************************************************************ TWABD_Parent


Functions


function ChildByName(ChildName: string): TWABD_Object;


destructor Destroy;


function ForEachChild(ForEachProc: TWABD_ForEach; UserData: pointer): boolean;

Default is to do nothing


function Object_To_Control(AOwner: TWinControl): TControl;


procedure ButCapProc(Child: TWABD_Object; var Stop: boolean; UserData: pointer);


function ButtonByCaption(Caption: string): TWABD_Button;


procedure ChildChanged(Sender: TObject);


procedure ChildNameProc(Child: TWABD_Object; var Stop: boolean; UserData: pointer);

Search for "grandchildren" if necessary


procedure DefButProc(Child: TWABD_Object; var Stop: boolean; UserData: pointer);


function GetDefaultButton: TWABD_Button;


function GetWABDObjCount: integer;


function GetWABDObjects(i: integer): TWABD_Object;

TRACE('END DESTROYING Parent: %s (%s)', [Name, ClassName]); TRACE0('');


procedure Loaded;


Properties


property ChildCount : integer


property Children : TWABD_Object


Events


Variables


FWABD_Objs : TList;


TheChild : TWABD_Object;


tmp : string;