Скачать: CL | DM;

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

← →
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.

---

← →
SiJack ©   (2003-04-22 11:16) [3]

formStyle - fsStayOnTop

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c