Форум: "Основная";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];
ВнизОкно поверх других окон. Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.012 c