ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Проблема с OnDeactivate !!!!
25 сообщений из 30, страница 1 из 2
  1  все
Проблема с OnDeactivate !!!!
    #32122851
Oleg Romantsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oleg Romantsev
Гость
Есть некая форма. С этой формы неким действием открывается другая форма причем модально.
Проблема в том что при этом в первой форме не срабатывает триггер
OnDeactivate!! А очень нужно чтоб сработал!
(При открытии второй формы не модально - OnDeactivate работает)

Как бороться?
...
Рейтинг: 0 / 0
19.03.2003, 12:59
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32122868
LG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LG
Участник
Все дело в том, что открытии модальной формы = открытие например MessageBox. И пока тот кто вызывал модальную форму не получит mrResult не сработает OnDeactivate.
...
Рейтинг: 0 / 0
19.03.2003, 13:12
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32122879
Oleg Romantsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oleg Romantsev
Гость
А можно ли как нибудь ( в общем случае ) из формы которая открылась модально добраться до формы которая вызвало это модальное окно
( имеется в виду вот что в моем проекте все формы созданы на основе одной - шаблонной ) и в шаблонной форме обрабатываются события ( OnActivate и OnDeactivate) таким образом если открыть какую то форму модально и на этой форме добраться до вызвавшей ее формы ( не зная в design-time что это будет за форма) то можно наверно ручками вызвать это событие OnDeactivate
...
Рейтинг: 0 / 0
19.03.2003, 13:19
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32122897
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
Проблем с доступом из модальной формы в вызвавшую ее форму (равно как и в любую другую) нет. Когда явно вызываешь - все нормально.

Можно вообще обойтись без модальных окон: Form1.Enable := False/True
...
Рейтинг: 0 / 0
19.03.2003, 13:32
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32122901
LG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LG
Участник
Можно сделать все.
В твоем случае я использовал бы механизм сообщений.
Т.е. при открытии модальной формы передавал бы нэндл предка (того, который открыл). Дальше все просто, из модальной формы шлеш сообщение, а в предке обрабатываеш.
Есть вариант с COM, но он сложнее.
...
Рейтинг: 0 / 0
19.03.2003, 13:36
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32122902
Oleg Romantsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oleg Romantsev
Гость
Вопрос был в том как определить какая форма вызвала эту модальную форму если заранее не знаешь?
...
Рейтинг: 0 / 0
19.03.2003, 13:37
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32122909
Oleg Romantsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oleg Romantsev
Гость
LG:
У меня в проекте туева кучя форм из некоторых форм так же туева куча может открываться модально и мне что каждый раз при вызове передавать хэндл? Более универсального способа нет?
...
Рейтинг: 0 / 0
19.03.2003, 13:40
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32122913
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
Не как ответ, а как направление поиска решения (одно из возможных):
при закрутии модальной формы фокус получает вызвавшая форма.
Может посмотреть куда должен вернуться фокус ввода?
...
Рейтинг: 0 / 0
19.03.2003, 13:46
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32122918
Oleg Romantsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oleg Romantsev
Гость
eNose:
Интересно и как это сделать в общем случае?
Вообще то я полагал что события OnActivate и OnDeactivate соответствуют событиям прихода/ухода фокуса на данную форму
...
Рейтинг: 0 / 0
19.03.2003, 13:53
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32122929
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
При модальном вызове OnDeactivate не работает...

Я сам не пробовал, но у Application должен где-то храниться порядок вызова форм. Или посмотри Parent у модальной формы.
...
Рейтинг: 0 / 0
19.03.2003, 14:03
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32123000
LG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LG
Участник
>>Вопрос был в том как определить какая форма вызвала эту модальную форму если заранее не знаешь?

Исходя из вопроса:
1. Получаем HWND GetTopWindow(HWND hWnd // handle of parent window);
2. Получаем HWND GetNextWindow(
HWND hWnd, // handle of current window
UINT wCmd // direction flag
);
3. Имеем нэндл нужного окна. Дальше делаем, что хотим ...

Но я бы пересмотрел логику работы с
>>туева кучя форм из некоторых форм так же туева куча может открываться модально
...
Рейтинг: 0 / 0
19.03.2003, 15:08
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32123001
Oleg Romantsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oleg Romantsev
Гость
eNoise:

>> Application должен где-то храниться порядок вызова форм.

Не нашел я там такого

>>Или посмотри Parent у модальной формы.

Parent =nil
...
Рейтинг: 0 / 0
19.03.2003, 15:08
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32123046
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
GetWindow(Handle, GW_HWNDNEXT) дает HWND вызвавшей формы. (здесь Handle - ModalForm.Handle)
...
Рейтинг: 0 / 0
19.03.2003, 16:01
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32123064
LG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LG
Участник
Можно и так ...
...
Рейтинг: 0 / 0
19.03.2003, 16:11
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32123073
Oleg Romantsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oleg Romantsev
Гость
А вот и неправда!

При обычном вызове формы (show ) тут вы правы

А при showmodal обнаружил странную штуку - хендл модального окна - тот же что и хендл вызвавшего его окна!!!
...
Рейтинг: 0 / 0
19.03.2003, 16:20
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32123076
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
Этого не может быть. Проверь еще раз.
...
Рейтинг: 0 / 0
19.03.2003, 16:21
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32123083
Oleg Romantsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oleg Romantsev
Гость
Прошу прощения...поторопился с выводами

при еще одной попытке протестировать получились совсем другие значения

т.е.
При обычном вызове формы (show ) всё работает

А при showmodal хендл вызвавшего его окна и хендл, возвращаемый
GetWindow(Handle, GW_HWNDNEXT) не одинаковы!
...
Рейтинг: 0 / 0
19.03.2003, 16:23
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32123088
Oleg Romantsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oleg Romantsev
Гость
Как выяснилось при showmodal GetWindow(Handle, GW_HWNDNEXT) выдает хэндл главной (MDI) формы!!!
...
Рейтинг: 0 / 0
19.03.2003, 16:28
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32123139
LG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LG
Участник
М-да, грустно.

Если у тебя все формы наследуются от одной, есть еще вариант :))

...
TXXX = class(TForm)
private
FParentHandle: THandle;
...
public
...
property GetParentHandle: THandle read FParentHandle;
procedure ShowModal(AParentHandle: THandle); reintroduce;
...
end;
...
procedure TXXX.ShowModal(AParentHandle: THandle);
begin
FHandle := AParentHandle;
inherited ShowModal;
end;
...
Тут в предке имеем хендл того, кто вызвал.
Соответственно во ВСЕХ !!! вызовах ShowModal надо поменять на ShowModal(self.Handle)
...
Рейтинг: 0 / 0
19.03.2003, 17:09
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32123148
Oleg Romantsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oleg Romantsev
Гость
А как быть не смоими окнами ( например стандартное окно диалога отарытия файла)???
...
Рейтинг: 0 / 0
19.03.2003, 17:18
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32123223
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tygra
Участник
Чего-то понаворотили, блин.

Все просто:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
procedure TMyForm.ShowModalForm;
begin
ModalForm := TModalForm.Create(Self) --вот тут и зарыта собака;
 
ModalForm.ShowModal;
....
end;
......

procedure TModalForm.FormShow(Sender: TObject);
begin
 TBaseMyForm(Owner).FormDeactivate(TBaseMyForm(Owner))
......;
end;
...
Рейтинг: 0 / 0
19.03.2003, 19:08
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32123328
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
Tygra, я сейчас пришел на работу, как раз ночью до меня дошло тоже самое, что ты написал.
Просто я никогда не догадаюсь закинуть 500 форм в автокриэйт...
Поэтому я и отвечал "со своей колокольни"
...
Рейтинг: 0 / 0
20.03.2003, 07:57
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32123465
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tygra
Участник
А при чем тут autocreate?
...
Рейтинг: 0 / 0
20.03.2003, 10:40
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32123475
LG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LG
Участник
>> А как быть не смоими окнами ( например стандартное окно диалога отарытия файла)???
...
Рейтинг: 0 / 0
20.03.2003, 10:45
| Ответить | Цитировать | Написать  
Проблема с OnDeactivate !!!!
    #32123551
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
2 Tygra: а при том, что если создавать формы руками, таких проблем (получение предка) обычно не возникает, так как явно его указываешь (create(Form1)).
...
Рейтинг: 0 / 0
20.03.2003, 11:39
| Ответить | Цитировать | Написать  
25 сообщений из 30, страница 1 из 2
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Проблема с OnDeactivate !!!!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]