| Class TWABD_Parent (unit WABD_Objects) |
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
function ChildByName(ChildName: string): TWABD_Object;
destructor Destroy;
function ForEachChild(ForEachProc: TWABD_ForEach; UserData: pointer): boolean;
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);
procedure DefButProc(Child: TWABD_Object; var Stop: boolean; UserData: pointer);
function GetDefaultButton: TWABD_Button;
function GetWABDObjCount: integer;
function GetWABDObjects(i: integer): TWABD_Object;
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;