Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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 - спасибо, всё заработало.




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




Наверх





Память: 0.72 MB
Время: 0.014 c
3-10              Draculenok            2002-03-05 13:28  2002.04.01  
Почему не работает( или чего-то не хватает?)


3-23              amamed_3071           2002-03-05 08:17  2002.04.01  
Error Time Out expected Помогите


3-67              iPen                  2002-03-05 11:01  2002.04.01  
Программное свешивание в ячейке DBGrid-а


6-263             Oleg_EM               2002-01-09 09:29  2002.04.01  
AsyncPro 2.58 ApdTAPIDevice как ему сказать шоп пульсом набирал ?


1-145             ЗЛ                    2002-03-22 07:36  2002.04.01  
Eсть ListBox внем 300 записей, каждые пол секунды я вывожу в label запись начиная с первой и заканчивая последней как мне сделать к этому действию ProgresBar