保持各组件相对窗体的位置

在BCB中，一旦组件放下，其位置也就固定了，所以当鼠标拉动窗口后，组件会保持不变，下面代码实现各组件相对窗体位置不变功能

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormResize(TObject *Sender)
{
int ixPos = Width / 2;
int iyPos = Height / 2;
TControl *pControl;
for(int i = 0; i < ControlCount; i++){
pControl = Controls[i];
pControl->Left = ixPos - pControl->Width / 2;
pControl->Top = iyPos - pControl->Height / 2;
}
}
//---------------------------------------------------------------------------