Class TComponentHolder (unit Holder)

Inherits from

TBitBtn

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;



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;