Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.02.2012, 17:05   #1
demiancz
Форумчанин
 
Регистрация: 28.09.2010
Сообщений: 246
По умолчанию Вторая форма поверх всех окон

Здравствуйте. Есть две формы Form1 и Form2. Нужно сделать чтобы при нажатии на кнопку вторая форма была поверх всех окон.
Пытался сделать так:
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
и так
Form2.FormStyle:=fsStayOnTop;
Но ничего не получается. Вторая форма поверх окон приложения получается (поверх Формы 1). А вот если допустим открыть браузер или еще какую-нибудь программу запустить, то Form2 НЕ поверх этих приложений.
Для Form1 вышеприведенное работает. А вот для Form2 - нет. Подскажите пожалуйста что делать.
Смотреть фильмы HD Фильмы для планшетов
demiancz вне форума Ответить с цитированием
Старый 19.02.2012, 22:04   #2
Прячущая Хвост
 
Регистрация: 20.10.2011
Сообщений: 5
По умолчанию

Form2.FormStyle:= fsStayOnTop;
Form2.ShowModal;

Вот так у меня вторая форма ничем не перекрывается после появления.
Прячущая Хвост вне форума Ответить с цитированием
Старый 19.02.2012, 22:26   #3
demiancz
Форумчанин
 
Регистрация: 28.09.2010
Сообщений: 246
По умолчанию

Цитата:
Сообщение от Прячущая Хвост Посмотреть сообщение
Form2.FormStyle:= fsStayOnTop;
Form2.ShowModal;

Вот так у меня вторая форма ничем не перекрывается после появления.
Нет не помогло. Вторая форма поверх первой, но никак не поверх всех остальных форм.
Смотреть фильмы HD Фильмы для планшетов
demiancz вне форума Ответить с цитированием
Старый 19.02.2012, 23:05   #4
demiancz
Форумчанин
 
Регистрация: 28.09.2010
Сообщений: 246
По умолчанию

Я уже и на XP и на семерке проверил. И уже в Delphi 2010 и Delphi XE2 компилировал. Так что проблема сто пудов не в этом, а в коде. Вот только что и как сделать ....?
Смотреть фильмы HD Фильмы для планшетов
demiancz вне форума Ответить с цитированием
Старый 20.02.2012, 08:32   #5
FaTaL
Участник клуба
 
Аватар для FaTaL
 
Регистрация: 09.11.2007
Сообщений: 1,762
По умолчанию

Тут вы передаете Хэндл первой формы, попробуйте явно указать
SetWindowPos(Form2.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
FaTaL вне форума Ответить с цитированием
Старый 20.02.2012, 09:44   #6
TorrentTor
Форумчанин
 
Аватар для TorrentTor
 
Регистрация: 02.11.2011
Сообщений: 105
По умолчанию

А если попробовать так при условии что первая форма главная, не знаю у меня в одном проекте работало так:
Код:
        Form1.FormStyle:=fsStayOnTop;
        FormStyle:=fsStayOnTop;
TorrentTor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
форма поверх всех окон Gudzik11 Общие вопросы Delphi 2 14.02.2012 08:47
Форма поверх всех окон dacorp Общие вопросы Delphi 2 20.08.2011 10:40
Форма поверх всех окон LordTor Общие вопросы Delphi 5 18.11.2009 23:38
Форма поверх всех окон (!!!) Viteef Общие вопросы Delphi 12 29.06.2007 00:22
Форма поверх всех окон. Kamikadze_666 Общие вопросы Delphi 1 16.05.2007 07:10