Почему при вызове по таймеру Form2.FormStyle:=fsStayOnTop; не работает?

[Illusiony]

С начало было так:
1) запускаю программу
2) запускаю в ней таймер в котором запускаю вторую форму
3) в FormCreate второй формы прописал FormStyle:=fsStayOnTop;

Все сработало нормально

Теперь пытаюсь сделать следующее:

1) Жму на саму программу delphi
2) и по таймеру каждую секунду делаю Form2.FormStyle:=fsStayOnTop;

Ошибок нету и второе окно появляется поверх всех окон только когда первая форма в фокусе.

ЧТо не так?

[min@y™]

fsStayOnTop - поверх своих окон, а не всех.

[Illusiony]

Сообщение от min@y™

fsStayOnTop - поверх своих окон, а не всех.

Но в первом варианте оно срабатывает поверх чужого окна.

Хотя так и так Вы правы. Спасибо. Буду искать дальше.

[min@y™]

Но в первом варианте оно срабатывает поверх чужого окна.

И чо?

[Filka]

type
  TForm2 = class(TForm)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;
//
implementation
//
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
  begin
    ExStyle := ExStyle or WS_EX_TOPMOST;
    WndParent := GetDesktopWindow;
  end;
end;

А потом:
Form2.FormStyle := fsStayOnTop;

[min@y™]

CreateParams

Фу, как грубо!

[Filka]

Фу, как грубо!

Что не так?

[Illusiony]

Сделал так:

 
Var
 hform2:HWND;
hform2:= findwindow(nil, 'Form2'); 

SetWindowLong(hform2, GWL_HWNDPARENT, GetDesktopWindow);

Работает.

[come-on]

Это у вас то не грубо?
вместо перекрытия то чего можно и надо, выделываетесь с АПИ, причем еще и через не пойми как.

А, про грубо это не автора ... тогда про грубо к нему не относится

[Illusiony]

Сообщение от come-on

Это у вас то не грубо?
вместо перекрытия то чего можно и надо, выделываетесь с АПИ, причем еще и через не пойми как.

Это мне?
Я и так уже использую API в программе.