Form.Show

[Aleks_www]

Всем доброго времени суток!

Подскажите мне пожалуйста про Form.Show. Например есть Form1 и Form2. На Form1 расположена кнопка с кодом Form2.Show;. После нажатия на кнопку открывается Form2 и становится поверх Form1. Даже когда щелкнуть мышью по Form1, Form2 будет сверху, если ее только не утащить мышью или не закрыть. Как сделать чтобы при получении фокуса формой она становилась поверх остальных? BringToFront не помогает. Раньше имел дело с mdi приложениями. Создавал все дочернии формы с помощью create. Еще иногда требовалось ShowModal, с этим все ясно. Но вот теперь нужно чтобы одновременно было открыто много окон и не в mdi приложении. По подобию outlook например. Оказалось есть некоторые подводные камни))

[eduard93]

А какая у вас делфи?

[_Engine_]

FormStyle := fsNormal; ???

[tsar_]

На Delphi 7 лично создал две формы с кнопками без всяких MDI и т.д. Для каждой кнопки в OnClick записал Form{1 или 2 соответственно}.Show и все работает без проблем- вызываемая форма перекрывает вызвавшую.
Проверьте свойства форм, в первую очередь:

FormStyle := fsNormal; ???

[Aleks_www]

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

А какая у вас делфи?

2010

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

FormStyle := fsNormal; ???

Да, FormStyle := fsNormal.

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

На Delphi 7 лично создал две формы с кнопками без всяких MDI и т.д. Для каждой кнопки в OnClick записал Form{1 или 2 соответственно}.Show и все работает без проблем- вызываемая форма перекрывает вызвавшую.
Проверьте свойства форм, в первую очередь:

Ну у меня тоже вызванная с кнопки форма перекрывает вызывавшую. Мне надо чтобы когда я снова кликал по вызывавшей она выходила на первый план - BringToFront. Но почему то вызванная кнопкой форма остается впереди даже когда я щелкаю по вызывавшей.

[tsar_]

Да, без кода, как без бутылки,- не разберешся... Дайте хоть какой-то код, тогда и разговор будет.
Вот пример кода (Delphi 7), где при 1-ом,3-ом,5-ом... нажатии на Button1 вызывающей формы будет показываться вызванное окно, а при 2-ом,4-ом,6-ом... нажатии на ту же кнопку вызывающая форма вылезет поверх вызванной:

procedure TForm1.Button1Click(Sender: TObject);
begin
if button1.tag=0 then
 begin
  form2.Show;
  button1.Tag:=1;
 end
else
 begin
  show;
  button1.Tag:=0;
 end;
end;

[Aleks_www]

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

Да, без кода, как без бутылки,- не разберешся... Дайте хоть какой-то код, тогда и разговор будет.

Да, действительно без бутылки никак.... Ну какой там может быть код?
Метод - Show;

Просто кнопка, и пока в процедуре клика только открытие:

procedure TFMain.MenuNewUser(Sender: TObject);
begin
FormUsers.Show;
end;

end.