送分题：怎样使MdiChild窗体在创建时出现在主窗体的中间？？

Question

TRect rect=Application->MainForm->BoundsRect;
Form2->Left-((Rect.Right-Rect.Left)-Form2-Width)/2+Rect.Left;
Form2-=>Top=((Rect.Bottom-Rect.Top)-Form2->Height)/2+Rect.Top;
Form2->ShowModal();
上面是在ＢＣＢ中实现的，只要你把它改一改就可以在ＤＥＬＰＨＩ中的Mdi窗口实现了。

Answer 1

ver
  rect: TRect;
begin
  rect := Application.MainForm.BoundsRect
  Form2.Left := ((Rect.Right-Rect.Left)-Form2.Width)/2+Rect.Left;
  Form2.Top := ((Rect.Bottom-Rect.Top)-Form2.Height)/2+Rect.Top;
  Form2.ShowModal;

Answer 2

将窗体的position属性设置为poscreencenter就可以了！