Class TWABD_Parent (unit WABD_Objects) |
Inherits from
TWABD_Object
constructor Create(AOwner: TComponent);
- ************************************************************************ TWABD_Parent
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;
property ChildCount : integer
property Children : TWABD_Object
FWABD_Objs : TList;
TheChild : TWABD_Object;
tmp : string;
constructor Create(AOwner: TComponent);
************************************************************************ TWABD_Parent
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;
property ChildCount : integer
property Children : TWABD_Object
FWABD_Objs : TList;
TheChild : TWABD_Object;
tmp : string;