fsStayOnTop без фокуса

[Deight]

Подскажите пожалуйста, есть две формы надо чтоб вторая форма была всегда поверх первой т.е. когда фокус переходил на первую форму вторая помещалась в TopMost на самый меньшей z последовательности(для того чтобы если была открыта другая пограмма которая былабы поверх всех окон моя форма былабы под ней), а когда фокус уходил с первой формы вторая становилась бы в обычную z последовательность на месте после первой формы. При этом фокус ни когда не должен передоваться второй форме, но на неё(на вторую форму) можно былобы навести мыш и нажать чтобы обробатывались события onClick, onMouseMove и т.п.

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

[asmodey1]

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

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(Application);
  Form2.Visible := FALSE;
  Form2.DefaultMonitor:=dmMainForm;
  Form2.FormStyle:=fsStayOnTop;
  ShowWindow(Form2.Handle, SW_SHOWNA);
end;

Но в этом случае часть компонентов на Form2 оказываются невидимыми. Лечится установкой в свойствах самой Form2 -> Visible=True.

[Deight]

Спасибо за помощь, только это запостное решение первой проблемы

procedure TForm1.WMActivate (var Msg:TWMActivate);
begin
  if (Msg.Active = WA_ACTIVE) or (Msg.Active = WA_CLICKACTIVE)then
 begin
  Form2.Visible := FALSE;
  Form2.DefaultMonitor:=dmMainForm;
  Form2.FormStyle:=fsStayOnTop;
  ShowWindow(Form2.Handle, SW_SHOWNA);
 end
  else
 begin
  Form2.Visible := FALSE;
  Form2.DefaultMonitor:=dmMainForm;
  Form2.FormStyle:=fsNormal;
  ShowWindow(Form2.Handle, SW_SHOWNA);
 end;
inherited;
end;

т.к. вторая форма мерцает даже если

  Form2.Visible := FALSE;
  Form2.DefaultMonitor:=dmMainForm;

вырезать и вставить в Create.
Может есть вариант без мерцания?
ещё нужно решить два вопроса
1. если нажать на вторую форму ей передасться фокус(нужно недопустить этого)
2. если над второй формой будет окно TopMost другой программы то вторая форма прорисуется поверх этого окна(нужно ей задать самую низкую z последовательность)

И мне удалось с тем примером вогнать вторую форму(синий квадрат) за первую
я всего лиш нажал на вторую форму затем на заголовок первой, причём, окно первой формы белое, значит оно не активно а активна вторая форма

[Пепел Феникса]

ТС, а зачем такое надо?
и как по вашему форма должна не получая фокуса получать события мыши?(учитывая что клик передает фокус)
может попробывать Popup?

[Deight]

и как по вашему форма должна не получая фокуса получать события мыши?(учитывая что клик передает фокус)

ну я думаю что это возможно(если нет и вы на 100% уверены то так и скажите)
я так думаю что при щелчке по окошку передаётся несколько сообщений(активация, нажатие мыши и незнаю что ещё) тогда как нить до того как программа оброботает сообщение об активации нужно его либо уничтожить либо поменять параметры(если я заблуждаюсь поправте пожалуйста), а как это сделать? я уже не знаю как в гугле писать, от фака по API уже совсем мозг рвётся.
Popup если вы имеете ввиду компонент то нет, нужно именно мой вариант, если вы имеете ввиду что-то другое то поясните пожалуйста?
Я вот боюсь что не втот раздел написал, мне всего лиш нужно чтоб вторая форма всегда была поверх первой, без мерцаний и чтоб только поверх первой, чтоб другие формы других программ никогда не залезли между первой и второй формой, при этом вторая форма должна существовать как отдельная форма а не MDI.

С первой задачей справился так

  private
  procedure wmActivate (var Msg:TWMACTIVATE); message wm_Activate;

procedure TForm1.WMActivate (var Msg:TWMActivate);
begin
  if (Msg.Active = WA_ACTIVE) or (Msg.Active = WA_CLICKACTIVE)then
SetWindowPos(Form2.Handle,HWND_TOPMOST,0,0,0,0,SWP_ASYNCWINDOWPOS or SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOMOVE or SWP_NOSENDCHANGING)
  else
SetWindowPos(Form2.Handle,HWND_NOTOPMOST,0,0,0,0,SWP_ASYNCWINDOWPOS or SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOMOVE);
inherited;
end;

Мерцания нет но
1. когда щёлкаеш по клиентской облости формы другой программы вторая форма остаётся висеть в TOPMOST, причем первая форма через раз остаётся висеть над формой другой программы, но если щёлкать по заголовкам то отображается всё корректно(кроме этого кода, что я выложил, в проэкте ничего нет), как это исправить.
2. вторая форма выводится в TOPMOST на самый верх, можно ли сделать так что б относительно всех TOPMOST она была в самом низу?
#4-1 ещё актуально.