Операции с формами

[Shouldercannon]

Доброго времени суток!
Стоит задача вывести Form2 по верх всех форм и, возможно, других окон

  Form2.WindowState := wsNormal;
  SetWindowPos(Form2.Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
  Form2.Show;

Задача требует именно такого способа, но у данного способа есть проблема (см. скрин). Вторая форма при деактивации закрывает собой главную.
Пытался решить проблему так:

procedure TForm2.FormDeactivate(Sender: TObject);
begin
  SetWindowPos(Handle, HWND_NOTOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

На выходе получаем:
1. Запускаем приложение
2. Нажимаем кнопку, чтобы открыть вторую форму
3. Открывается вторая форма
4. Кликаем по первой форме и получаем результат как на скрине
Чтобы добиться требуемого результата, нужно кликнть по второй форме, а потом только по первой.

[Stilet]

вывести Form2 по верх всех форм и, возможно, других окон

и

Вторая форма закрывает собой главную.

Или я чего-то не понимаю или я чего-то не понимаю . одно из двух.

[Shouldercannon]

Исправил пост. При определённом событии вторая форма должна вывестись поверх всех окон, а при деактивации должна лишиться этого свойства. Деактивация не хочет срабатывать после того, как вторая форма была открыта, нужно сначала активировать вторую форму и только потом переключаться на первую и вот только тогда сработает событие деактивации у второй формы.

[Stilet]

Деактивация не хочет срабатывать после того, как вторая форма была открыта, нужно сначала активировать вторую форму и только потом переключаться на первую и вот только тогда сработает событие деактивации у второй формы.

Извини, я последнее время совсем без башни остался, поэтому не могу понять и этого пояснения...

[eval]

автор, вы чего хотите сделать? чтобы форма не могла активироваться? тогда createparams надо переопределить, или чтоб активация хитрая была, тогда как?

[Shouldercannon]

Хочу, чтобы событие деактивации сработало у второй формы после того, как она была открыта и сразу же перешли на главную форму.

[eval]

вы рассказываете чего у вас не получается, а я спрашиваю чего вам надо, это большая разница

[alextrof94]

ТСу надо, чтобы происходило Form2.FormStyle:=fsNormal при активации Form1.

procedure TForm1.FormActivate(Sender: TObject);
begin
 Form2.FormStyle:=fsNormal;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
 Form2.FormStyle:=fsStayOnTop;
end;

eval как всегда оффтопит.

[eval]

procedure TForm1.FormActivate(Sender: TObject);
begin
Form2.FormStyle:=fsNormal;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
Form2.FormStyle:=fsStayOnTop;
end;

опять гомнокод, может уже хватит?

[alextrof94]

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

опять гомнокод, может уже хватит?

Давай, покажи мне как надо писать не гомнокод, а то только оффтопишь да возмущаешься, по делу 0 строк от тебя увидел. Может ты еще и на скамейке возле подъезда сидишь да шл**ами девок и наркоманами парней проходящих называешь?
Кстати, опять оффтопишь, а по делу ничего не написал.