This components is a panel filled with components of one given kind. It provides properties to set their size and quantity, methods to access them individually, and events when they are painted / created.
EOutOfListException
ComponentAt
)
EComponentNotFoundException
GetCoordsForControl
)
TControlClass = class of TControl;
TOnPaintingControl = procedure(Sender : TObject; X, Y : integer; Control : TControl) of object;
TOnCreatingControl = procedure(Sender : TObject; X, Y : integer; var Control : TControl) of object;
XCompNumber, YCompNumber : integer
XRatio, YRatio : double
ChildClassType : TControlClass (runtime)
ComponentAt[X : integer; Y : integer] : TControl
(runtime) procedure GetCoordsForControl(Control : TControl; var X, Y : integer);
OnPaintingControl : TOnPaintingControl
OnCreatingControl : TOnCreatingControl