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

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

NODEFAULT

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

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

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

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


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