Окно поверх других окон.

← →
NewN (2003-04-22 08:19) [0]

Доброе утро, Мастера!
Подскажите пожалуйста, как сделать форму (немодальную) поверх всех окон моего приложения (даже если она неактивна), но не поверх окон других приложений? У меня стоит FormStyle = bsStayOnTop, но окна других программ тоже перекрываются.

← →
Song © (2003-04-22 09:21) [1]

SetWindowPos()

← →
NewN (2003-04-22 09:44) [2]

>>Song © (22.04.03 09:21)
Спасибо, вроде то, что нужно.
Делаю:

procedure TForm2.FormDeactivate(Sender: TObject);
begin
SetWindowPos(Handle, HWND_TOP, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE or SWP_NOACTIVATE);
end;

procedure TForm2.FormShow(Sender: TObject);
begin
FormDeactivate(nil);
Application.OnActivate:= FormDeactivate;
end;

Form1 - главная форма.
но, при щелчке на заголовке Form1, Form2 скрывается за Form1, FormDeactivate не вызывается. У меня Windows XP.

formStyle - fsStayOnTop

Окно поверх других окон. Найти похожие ветки