| Class TComponentHolder (unit Holder) |
TBitBtn
| Constructors |
Constructor Create(AOwner : TComponent);| Functions |
Procedure ComponentMoved;
Destructor Destroy;
Procedure FreeComponent;
Procedure MatchComponent;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
Procedure SetComponent(Component : TComponent);
Procedure WndProc(Var Message : TMessage);| Properties |
property Component : TCOmponent| Events |
| Variables |
FComponent : TComponent;
FCreated : Boolean;| Constructors |
Constructor Create(AOwner : TComponent);| Functions |
Procedure ComponentMoved;
Destructor Destroy;last two are overridden
Procedure FreeComponent;Now force it to use these values
Procedure MatchComponent;CheckMoved
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);The component we are faking
Procedure SetComponent(Component : TComponent);
Procedure WndProc(Var Message : TMessage);| Properties |
property Component : TCOmponent| Events |
| Variables |
FComponent : TComponent;
FCreated : Boolean;