Delphi forms

[sokolik-117845]

C формы главной программы открываю вторую

procedure TForm1.EffectButton6Click(Sender: TObject);
begin
  form2.show;
end;

У form2 в настройках Position ставлю PoMainFormCenter, чтобы при открытии она была точно по верх form1. Это работает только при первом открытии form2, а после закрытия form2 и повторного открытия не выравнивается по координатам form1.

Закрываю форм2 просто close; может из-за этого при новом открытии не накладывается на форму1? Подскажите кто знает!

[mss]

Никакого "открытия формы" в коде и в помине нет.
Есть визуализация до этого ранее некогда созданной формы. А позиция формы определяется именно при создании.

[sokolik-117845]

Тогда вопрос как ранее созданную форму показать с такими же параметрами позиции как у формы из которой вызывается визуализация?

[mss]

Либо пересоздать вторую форму либо в обработчике события 2-й формы OnShow установить ее св-ва Left и Top таким образом, чтобы она оказалась по центру 1й формы

[sokolik-117845]

Сообщение от mss

Либо пересоздать вторую форму либо в обработчике события 2-й формы OnShow установить ее св-ва Left и Top таким образом, чтобы она оказалась по центру 1й формы

Спасибо за помощь!

  form2.Top:=form1.Top;
  form2.Left:=form1.Left;

[Петррр]

begin
  Form2.Show;
  MoveWindow(Form2.Handle, Form1.Left, Form1.Top, Form1.Width, Form1.Height, true);
end;

[BlackFishSQL]

procedure TForm1.Button1Click(Sender: TObject);
begin
FORM2.SHOW;
FORM2.POSITION:=PoMainFormCenter;
end;

ТАК ПРОЩЕ И ЛЕГЧЕ!)