Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Вниз

MDI-приложение: как определить активно родительское окно(дочерних ещё нет) или дочернее(тогда узнать какое)?   Найти похожие ветки 

 
kserg@ukr.net   (2002-03-20 11:48) [0]

У самого чё-то не получается.
Спасибо.


 
Alx2   (2002-03-20 11:56) [1]

ActiveForm?


 
kserg@ukr.net   (2002-03-20 12:55) [2]

>Alx2 если правильно понял, попытался сделать проверку типа

if MainForm.Active then ...
Но всегда получается =false ???
(я еще понимаю, если бы было всегда =true)

Наверно я не так делаю.


 
Alx2   (2002-03-20 13:02) [3]

Имелось в виду TScreen.ActiveForm.
Из программы до нее достучаться можно так: Screen.ActiveForm

Вот описание TScreen.ActiveForm. (см Help)


Indicates which form currently has focus.

property ActiveForm: TForm;

Description

Read ActiveForm to learn which form in the application has input focus. If the application is not currently active, ActiveForm is the form that will have focus when the application becomes active again.

ActiveForm is a read-only property. To change the ActiveForm, use the SetFocus method of the form that should receive focus. ActiveForm will also change if the SetFocusedControl method of an inactive form is called to set focus to a control on that inactive form.

After focus shifts from one form to another, the screen receives an OnActiveFormChange event.


 
kserg@ukr.net   (2002-03-20 13:42) [4]

>Alx2 - спасибо, всё заработало.



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

Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.005 c
4-366
JAndrey
2002-01-31 01:18
2002.04.01
Как сделать автозапуск при загрузке?


1-204
Сержжж
2002-03-20 10:49
2002.04.01
Выделение нескольких дат в MonthCalendar


3-37
Yulik
2002-03-07 11:23
2002.04.01
DbGrid


1-137
Transaero
2002-03-19 12:04
2002.04.01
Как возвести в степень отрицательное число?


1-216
nimble
2002-03-20 08:06
2002.04.01
Массивы





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский