Проблема с Form SHOW HIDE и виндовые окна

[AK BULLETS]

Добрый день!

Проблема в следующем.
На форме1 есть кнопка по которой делается форма2.show. При этом форма1 делается hide. При закрытии формы2 я делаю форма1.show.
Всё работает пока во время отображения формы2 я не открою какое нить любое виндовое окно. После этого, при закрытии формы2, форма2 не пропадает, а форма1 появляется. В итоге обе формы на экране.
Что за жёсткий баг?
Причем это как то связано с раскрытием окна в полный размер

[artemavd]

Может поиграться со свойством DefaultMonitor у формы?

[Stilet]

пока во время отображения формы2 я не открою какое нить любое виндовое окно.

Д6. Проверил так:
Первая форма:

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

Вторая форма:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 form1.show;
end;

Все прекрасно работает.

[AK BULLETS]

[Все прекрасно работает.[/QUOTE]

Попробуй раскрыть вторую форму во весь экран, потом открыть виндовое окно, тоже его раскрыть, потом скрыть. И закрыть вторую форму.

[Stilet]

А я так и пробовал.
И вообще по всякому пробовал - все отлично.

[AK BULLETS]

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

А я так и пробовал.
И вообще по всякому пробовал - все отлично.

а, ещё position:=poScreenCenter

[Stilet]

AK BULLETS

Ты долго прикалываться будешь?
Что еще нужно поставить, а?
Еще раз повторяю - все работает на ура, ошибка либо у тебя в коде, либо твоя операционка с тобой не согласна, либо компилятор кривой.

[AK BULLETS]

ну хз_______________________________

[Stilet]

Запусти мой пример. Не скомпилируй а именно запусти экзешник
Тоже слажает?

[AK BULLETS]

да, где то лажа). У тебя всё работает.
Но у меня кроме как

procedure TForm_OSNOVA.Button1Click(Sender: TObject);
begin
  Form_OSNOVA.Hide;
  Form_MONITORING_PIR.show;
end;

procedure TForm_MONITORING_PIR.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Form_OSNOVA.Show;
end;

больше ничего нет). Ну на формах куча элементов.

не ясно