Неглавная форма поверх всех окон

[Alex Cones]

Так не пробивали?

Читайте пост 3.

[Anatoly Pr]

Altera, тот проект, в которов я встретил эту проблему пишу на Borland C++ Builder 6, сейчас запустил похожий на Delphi 7, на ней тоже самое, они вообще очень синхронно ведут себя во многих специфических мелочах, с которыми я встречался.

А именно, на делфи сделал проект с двумя формами поверх всех, хотя только сейчас понял, что ситуация у меня достаточно сильно отличается от описанной вами в начале темы. В Delphi 7 я вообще не создаю форм, т. е. они уже созданы методами
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
И обе они имеют fsStayOnTop, они его какое-то время держат, но иногда, после нескольких кликов по другим окнам теряют.

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

Gerzs, спасибо за совет, да, пробовал, эта строчка делает окно поверх всех и вроде бы стабильно держит его в таком состоянии, но как только в приложении более одного окна, то окна ЧЕРЕЗ РАЗ уходят на второй план. Меня просто поражает вот эта самая нестабильность, никак не могу понять в чем фишка.

[Altera]

Так, с этим вопросом частично разорался.
В общем перехватываю перекрываю createParams и добавляю в params.exStyle значение WS_EX_TOPMOST. Проблема осталось лишь в том, как изменить этот параметр не закрывая окна?

Пытался сделать через getWindowLong и setWindowLong, константа WS_EX_TOPMOST. Не получается.

setWindowLong(handle, GWL_EXSTYLE, getWindowLong(handle, GWL_EXSTYLE) or WS_EX_TOPMOST);

[Altera]

Ну вот я вроде как-бы сам разобрался

procedure Tsome_wnd.setTopMost(const Value: boolean);
var
position, long: cardinal;
begin
   long := getWindowLong(handle, GWL_STYLE);

   if value then
   begin
      position := HWND_TOPMOST;
   end
   else
   begin
      position := HWND_NOTOPMOST;
   end;

   setWindowPos(handle, position, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
end;

По ходу новый вопрос http://programmersforum.ru/showthread.php?t=74944