Revert properties to default values

[LemonParty]

Hello.

I use this procedure for setting one component below another:

Code: Pascal  [Select][+][-]

1. procedure PlaceBelow(A, B: TWinControl);
2. begin
3.   B.AnchorSide[akTop].Side:= asrBottom;
4.   B.AnchorSide[akTop].Control:= A;
5.   B.Anchors:= B.Anchors + [akTop] - [akBottom];
6.   B.BorderSpacing.Top:= CGap;
7. end;
8.  

I need to revert back to default properties so components are no longer connected in a chain.

[wp]

Switch the Control.AnchorSideXXXX.Control to nil, and the control will be moving freely (at this side)