Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Перехват события перед уничтожением / 11 сообщений из 11, страница 1 из 1
27.05.2004, 10:29
    #32536010
Telum
Telum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перехват события перед уничтожением
Ув. господа программеры, достаточно долгое время меня беспокоит вопрос:
каким образом можно перехватить событие, которое происходит при нажатии
на кнопку х (Close) формы - можно ли предотвратить после этого release? destroy и т.д.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.05.2004, 10:35
    #32536037
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перехват события перед уничтожением
При нажатии на крестик в правом верхнем углу формы срабатывает событие Form.QueryUnload().

Если в этом событии дать команду

NODEFAULT

то закрытие формы будет отменено.

Следует иметь в виду, что если для закрытия формы будет дана команда RELEASE или вызван метод Form.Release(), то событие Form.QueryUnload() не произойдет (будет проигнорировано).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.05.2004, 10:36
    #32536038
IgorProgrammer
IgorProgrammer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перехват события перед уничтожением
В методе QueryUnload

после выполнения своих действий ставишь
NODEFAULT
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.05.2004, 10:40
    #32536053
Telum
Telum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перехват события перед уничтожением
Спасибо IgorProgrammer и ВладимирМ!
Интересный подход к решению проблемы!
Не зачто не подумал бы (все крутился около а не ..... эх бывают же осведомленные люди)!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.05.2004, 10:41
    #32536057
Telum
Telum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перехват события перед уничтожением
Спасибо IgorProgrammer и ВладимирМ!
Интересный подход к решению проблемы!
Не зачто не подумал бы (все крутился около а не ..... эх бывают же осведомленные люди)!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.05.2004, 10:42
    #32536059
Telum
Telum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перехват события перед уничтожением
Спасибо IgorProgrammer и ВладимирМ!
Интересный подход к решению проблемы!
Не зачто не подумал бы (все крутился около а не ..... эх бывают же осведомленные люди)!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.05.2004, 17:07
    #32537248
Alex Sheff
Alex Sheff
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перехват события перед уничтожением
А вот еще вопрос по этой же теме: есть TextBox в его свойства LostFocus прописал несколько команд которые производят вычысления и если значение меня неустраивает - выдаю сообщение и возвращаю фокус обратно командой ThisForm.TextBox.SetFocus. Первый раз все работает, но если второе значение тоже меня неустраивает - неработает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.05.2004, 17:17
    #32537273
IgorProgrammer
IgorProgrammer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перехват события перед уничтожением
для TextBox...

Код: plaintext
1.
2.
3.
4.
5.
метод Setvocus
     ThisForm.my_val = This.Value
метод Validate
   if ThisForm.my_val # This.Value
      messagebox('delau')
   endif
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2004, 02:12
    #32537783
karly™
karly™
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перехват события перед уничтожением
В аккурат для таких случаев существует событие Valid()
Если введеное значение тебя не устраивает, напиши Return .F.
Код: plaintext
1.
2.
3.
4.
5.
TextBox.Valid()

If This.Value = VeryBad
Wait Window "Shame on You!" Nowait
Return .F.
EndIF
И не надо никаких дополнительных фокусов с LostFocus!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2004, 12:18
    #32538509
Dik76
Dik76
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перехват события перед уничтожением
>karly™

Если мне не изменяет память valid оставлен для совместимости.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2004, 12:39
    #32538609
Burn
Burn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перехват события перед уничтожением
2Dik76
Изменяет;) Valid это штатное событие и никуда исчезать не собирается
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Перехват события перед уничтожением / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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