Центрировать дочернюю форму по основной

[nls]

Сорри за название темы, дело ко сну идёт.

В общем суть:

Есть 1 форма (главная) и есть 2-я (дочерняя). Чтобы мне хотелось сделать:

При нажатии кнопки, расположенной на главной форме, открывалась бы дочерняя форма (поверх главной), причём отображаться она должна по центру относительно главной формы. Вроде не сложно, а сделать не получается. Попробовал в свойствах дочерней формы выставить значение поля Position в poMainFormCenter и poOwnerFormCenter. Способ работает, но если после закрытия дочерней формы, передвинуть главную и вновь открыть дочернюю, то дочерняя форма отобразиться на той позиции, в которой она была в прошлый раз (совсем не по центру главной формы).

Есть ли какой-нибудь вариант побороть проблему?

[IvaD]

procedure TForm2.FormShow(Sender: TObject);
var x,y:real;
begin
 x:=form1.left+((form1.Width-form2.Width)/2);
 y:=form1.top+((form1.Height-form2.Height)/2);
 form2.left:=Trunc(x);
 form2.top:=Trunc(y);
end;

Вот на скорую руку набросал

[FaTaL]

Значит вы полностью не уничтожаете вторую форму при закрытии, а просто скрываете её.

[Stilet]

ИМХО так проще:

procedure TForm2.FormShow(Sender: TObject);
begin
 Left:=(form1.width div 2)-(form2.width div 2)+form1.Left;
 Top:=(form1.Height div 2)-(form2.Height div 2)+form1.Top;
end;

[nls]

Всем спасибо за помощь, сделал способом Stilet. Все супер.

[FaTaL]

Это то проще. Но смотря как он вторую форму вызывает. Вдруг каждый раз по новому создает, тогда лишняя память тратиться.

[_Engine_]

Если форма динамически создается каждый раз, то наверное проще CustomForm.Position:= MainFormCenter;