Текущий архив: 2003.05.05;
Скачать: 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 вся ветка
Текущий архив: 2003.05.05;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.009 c
