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

Вниз

Проблемы при использовании MDI-окон   Найти похожие ветки 

 
kserg@ukr.net   (2002-06-20 11:58) [0]

Привет
Есть MDI-приложение под БД, в котр. окно поиска можно вызывать как из осн.окна (т.е. поиск по всей БД сразу), так и из текущего открытого дочернего окна (поиск только по текущ.проекту). Вызов окна поиска идет из глав.меню осн.окна.

Сталкнулся со след.проблемой: если отрываю дочернее окно, затем закрываю его (т.е. дочерних окон нет) и пытаюсь вызвать окно поиска нижепривед.код не работает. Причем не работает именно в такой ситуации, в др.случаях нормально открывается с нужными опциями поиска.

if Screen.ActiveForm = MainForm then
fmFind.Tag:= 0
else
fmFind.Tag:= TMDIChildMainForm.ActiveMDIChild).Tag;

fmFind.showmodal;

При трассировке вижу, что Screen.ActiveForm = nil !!
Если правильно понимаю, то получается, что после закрытия дочернего окна осн.окно не становится активным?
Подскажите, как обойти этот казус?


 
kserg@ukr.net   (2002-06-20 12:39) [1]

ну, хоть что-нибудь присоветуйте...


 
Игорь Шевченко ©   (2002-06-20 12:50) [2]

if MainForm.MDIChildCount = 0 then
...
else
...


 
kserg@ukr.net   (2002-06-20 13:03) [3]

>Игорь Шевченко © (20.06.02 12:50)
спасибо, заработало...
но вот вопрос всё же мне не понятен: куда "теряется" фокус?
тем более этот кусок кода я выдрал где-то из делфийских примеров


 
Игорь Шевченко ©   (2002-06-20 13:58) [4]

Активным становится окно MDIClientWindow, которое не является формой.



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

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

Наверх




Память: 0.47 MB
Время: 0.015 c
3-903
DKalinin
2002-06-07 14:36
2002.07.01
Помогите! Какую ошибку перехватывать при открытии ADOquery надо?


4-1248
vvedensk
2002-05-03 13:46
2002.07.01
Может кто мне объяснит как узнать Handle


3-909
MaxVlasov
2002-06-05 22:06
2002.07.01
Delphi & Interbase - метаданные


1-1104
DeMoN-777
2002-06-18 21:21
2002.07.01
Сабж


1-980
ЛенаК
2002-06-17 09:02
2002.07.01
Печать графика в масштабе