Главная страница
    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.45 MB
Время: 0.032 c
9-1079366865
AxxxE
2004-03-15 19:07
2004.07.25
glRotate и glTranslate


1-1089125866
DDDeN
2004-07-06 18:57
2004.07.25
TrackBar как в регуляторе громкости


1-1089709192
han
2004-07-13 12:59
2004.07.25
Не находит Delphi-йского модуля!!!


1-1089685804
Глеб
2004-07-13 06:30
2004.07.25
Работа с выделенным текстом в MS Word


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





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский