Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.25;
Скачать: CL | DM;

Вниз

Как получить текущую модальную форму?   Найти похожие ветки 

 
Islander   (2004-07-11 11:21) [0]

Здравствуйте!

На экране открыто несколько форм моего приложения. Надо определить, какая из них модальная. В принципе, достаточно будет даже хендла этой формы.

Заранее спасибо


 
TUser ©   (2004-07-11 12:00) [1]

Раз она модальная - значит наверху. Тогда, наверное, GetForegroundWindow.


 
Islander   (2004-07-11 12:44) [2]

Мое приложение может быть неактивно, т.к. эта форма может быть закрыта другими окнами


 
Arm79   (2004-07-11 12:59) [3]

Если это ваше приложение, то можно при открытии форм перед ShowModal устанавливать св-во Tag показываемой формы в 1. А затем пробежаться по Screen.Forms, анализировать это св-во.


 
Anatoly Podgoretsky ©   (2004-07-11 13:06) [4]

Screen.ActiveForm


 
Islander   (2004-07-11 13:40) [5]

Спасибо, это почти то, что надо.

Но я открыл еще один способ:

Если известна некая форма Form и надо проверить, модальна ли она в текущий момент или нет, можно просто посмотреть результат функции IsWindowEnabled (Form.handle);

Дело в том, что в приведенном Анатолии примере есть одно но: если есть моя форма, и в это же время открыт OpenDialog, то Screen.ActiveForm вернет мне мою форму, хотя она в данный момент не модальна (модален OpenDialog).


 
Piter ©   (2004-07-11 14:58) [6]

Чего-то я не понимаю...

Вызов модальной формы прерывает выполнение основного кода, так? В каком же месте программы требуется определить модальна ли форма?!



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

Текущий архив: 2004.07.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.048 c
3-1088514199
Sonnik
2004-06-29 17:03
2004.07.25
Пользовательский интерфейс.


14-1088752863
МТС-ник
2004-07-02 11:21
2004.07.25
unlimited GPRS


1-1089347341
Mim1
2004-07-09 08:29
2004.07.25
Обработка CLX сообщений


3-1088575902
Explorer
2004-06-30 10:11
2004.07.25
работа через web


6-1085740049
Tr0sT
2004-05-28 14:27
2004.07.25
Отсутствие компонентов TClientSocket и TServerSocket