Удаление окон при закрытии приложения / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Удаление окон при закрытии приложения

23 сообщений из 48, страница 2 из 2

все

Удаление окон при закрытии приложения

#39341446

asdor

Участник

Откуда: Москва

Сообщения: 514

Рейтинг: 0 / 0

DmitryKn,
авторЕсли было открыто n окон и одно из них в режиме редактирования, но неактивно, т.е. не очевидно, и пользователь внезапно нажал "крестик" и подтвердил свое желание выйти, забыв о существовании формы в режиме редактирования, то какой код остановит выход из приложения, конечно, но уже запустятся всякие процессы закрытия, повылазят тулбары и системные окна и т.д. и, в конечном счете все сведется к саспендигнореканселу с последующим диспетчером задач.

Откат к исходному состоянию - даже боюсь думать, где там разбираться.

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

...

Рейтинг:

0 / 0

04.11.2016, 14:26

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341452

DmitryKn

Гость

asdorDmitryKn,

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

Ну или так

...

Рейтинг:

0 / 0

04.11.2016, 14:38

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341460

asdor

Участник

Откуда: Москва

Сообщения: 514

Рейтинг: 0 / 0

asdor,
Не или)))
Только сам объект знает, как лучше вести себя при уничтожении (и не толькл).
Не надо лезть в них.
Есть однотипные события, действия... дальше совсем банально)

...

Рейтинг:

0 / 0

04.11.2016, 15:00

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341543

DmitryKn

Гость

Процедура закрытия

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.

PROCEDURE ExitProcedure	
LOCAL lnFormCount, lnNum, loForm	

IF MESSAGEBOX('Вы действительно хотите выйти?',4+48+256,'Закрытие приложения') = 6
	lnFormCount	= _screen.formcount
		FOR	 lnNum=lnFormCount to 1 step -1
			try
				loForm = _screen.forms(lnNum)
			catch
				loForm = .f.
			endtry
			if vartype(loForm)="O" AND UPPER(loForm.BaseClass) = "FORM"
*				loForm.visible = .f.
				loForm.release()
			endif
			
		ENDFOR	
	
			ON shutdown
			CLEAR EVENTS
			return
ELSE
			RETURN
			READ events
		
ENDIF

ENDPROC

Последовательно закрывает все формы.
В QueryUnload формы:

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.

IF this.isedit
	if(MESSAGEBOX('Открыта форма ' + this.Caption + CHR(13) + 'Могут быть потеряны данные. Все равно выйти?' ;
		 + CHR(13) + CHR(13) + 'ДА - продолжить' + CHR(13) + 'НЕТ - вернуться к форме',4+48+256))=7

	nodefault

	ENDIF
ENDIF

По идее, при попытке закрыть приложение, должны закрыться последовательно все формы, при закрытии формы должен быть проверен код QueryUnload и выдан запрос.
Однако при нажатии на "крестик" приложения при открытой на редактирование форме, просто все закрывает и все, как если бы никакого кода в QueryUnload нету.

...

Рейтинг:

0 / 0

04.11.2016, 18:07

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341561

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

DmitryKnВ QueryUnload формы:

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.

IF this.isedit
	if(MESSAGEBOX('Открыта форма ' + this.Caption + CHR(13) + 'Могут быть потеряны данные. Все равно выйти?' ;
		 + CHR(13) + CHR(13) + 'ДА - продолжить' + CHR(13) + 'НЕТ - вернуться к форме',4+48+256))=7

	nodefault

	ENDIF
ENDIF

...

Рейтинг:

0 / 0

04.11.2016, 19:00

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341564

DmitryKn

Гость

Dima T,

isedit=.t. присваивается, когда форму открываем на редактирование, тут правильно.

Более того, если при редактировании формы не указывать closable=.f., то код в QueryUnload срабатывает, если саму открытую форму попытаться закрыть "по-крестику". Именно форму, а не само приложение.

...

Рейтинг:

0 / 0

04.11.2016, 19:06

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341567

DmitryKn

Гость

[quot Dima T]DmitryKnВ QueryUnload формы:

...
Скорее всего this.isedit = .F.

И, если как я ранее проверку открытых форм делал - считается количество открытых форм, т.е. isedit присутствует очевидно.

...

Рейтинг:

0 / 0

04.11.2016, 19:16

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341571

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

DmitryKnБолее того, если при редактировании формы не указывать closable=.f., то код в QueryUnload срабатывает, если саму открытую форму попытаться закрыть "по-крестику". Именно форму, а не само приложение.
Зачем указывать closable=.f. ? Ткнет пользователь в крестик формы - выйдет сообщение. Зачем закрытие формы блокировать?
Возможно QueryUnload не отрабатывает из-за closable=.f., не проверял.

...

Рейтинг:

0 / 0

04.11.2016, 19:20

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341574

DmitryKn

Гость

Dima TDmitryKnБолее того, если при редактировании формы не указывать closable=.f., то код в QueryUnload срабатывает, если саму открытую форму попытаться закрыть "по-крестику". Именно форму, а не само приложение.
Зачем указывать closable=.f. ? Ткнет пользователь в крестик формы - выйдет сообщение. Зачем закрытие формы блокировать?
Возможно QueryUnload не отрабатывает из-за closable=.f., не проверял.

closable = .f. указывается в методе toedit на клик кнопки "Edit", т.е. в момент начала редактирования данных на форме, и устанавливается в closable = .t. в методе save, предотвращая таким образом закрытие формы во время редактирования. Но формы, а не проекта.

Я попробовал исключить closable из кода, это ничего не меняет, не в этом причина.

...

Рейтинг:

0 / 0

04.11.2016, 19:27

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341578

DmitryKn

Гость

А какова будет вообще последовательность в процедуре 19859075 ?

Может FOR ... ENDFOR не успевает отработать?

...

Рейтинг:

0 / 0

04.11.2016, 19:30

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341582

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Я проверил:
при closable = .f. и закрытии окна фокса крестиком - QueryUnload() НЕ вызывается, просто закрывается форма.
при closable = .t. QueryUnload() срабатывает хоть на крестик окна фокса, хоть на крестик формы.

поставь первой строкой в QueryUnload()

Код: sql

set step on

и посмотри отладчиком что там происходит.

...

Рейтинг:

0 / 0

04.11.2016, 19:37

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341583

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

DmitryKnА какова будет вообще последовательность в процедуре 19859075 ?

Может FOR ... ENDFOR не успевает отработать?
Там хуже все, при закрытии таким способом ссылки на активную форму остаются и она не до конца уничтожается, поэтому надо прикручивать таймер, который за первый такт выполнит цикл, а вторым тактом все остальное. Изврат вобщем нужен.

...

Рейтинг:

0 / 0

04.11.2016, 19:41

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341587

sg12

Участник

Сообщения: 448

Рейтинг: 0 / 0

Dima TИзврат вобщем нужен.

Без изврата никак?

...

Рейтинг:

0 / 0

04.11.2016, 19:53

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341589

DmitryKn

Гость

Dima TDmitryKnА какова будет вообще последовательность в процедуре 19859075 ?

Может FOR ... ENDFOR не успевает отработать?
Там хуже все, при закрытии таким способом ссылки на активную форму остаются и она не до конца уничтожается, поэтому надо прикручивать таймер, который за первый такт выполнит цикл, а вторым тактом все остальное. Изврат вобщем нужен.

П-фф...Так может все-таки проверка на наличие открытых форм не так уж плоха? Или изврат все-таки обязателен для нормального приложения? ))

...

Рейтинг:

0 / 0

04.11.2016, 19:58

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341592

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

sg12Dima TИзврат вобщем нужен.

Без изврата никак?
Стандартным путем 19851880

...

Рейтинг:

0 / 0

04.11.2016, 20:06

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341594

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

DmitryKnDima Tпропущено...

Там хуже все, при закрытии таким способом ссылки на активную форму остаются и она не до конца уничтожается, поэтому надо прикручивать таймер, который за первый такт выполнит цикл, а вторым тактом все остальное. Изврат вобщем нужен.

П-фф...Так может все-таки проверка на наличие открытых форм не так уж плоха? Или изврат все-таки обязателен для нормального приложения? ))
Зачем тебе контролировать то что не надо? Форма должна знать надо ей молча закрыться или переспросить пользователя. Если так будет все построено, не надо никаких извратов (в т.ч. циклов с закрытиями форм, это тоже изврат).
Нормально если остановка приложения это вызов

Код: sql

clear events

а окончание работы это пару строк типа

Код: sql

1.
2.
3.
4.
5.

READ events
* тут действия при выходе
ON shutdown
ON ERROR
QUIT

почитай

...

Рейтинг:

0 / 0

04.11.2016, 20:13

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341600

DmitryKn

Гость

Dima T,

Это я почитал, и не раз, правда глубинного постижения нет все равно.

Почитаю, видимо, еще раз (

...

Рейтинг:

0 / 0

04.11.2016, 20:28

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341605

sg12

Участник

Сообщения: 448

Рейтинг: 0 / 0

Dima T

ДимаТ, я тебе еще года два назад советовал не вводить в заблуждение хотя бы новичков.
Это старперы понимают, что к чему, и разберутся при необходимости.
ТС ведь вначале выложил свой проект, он простейший и чтобы прочитать его, нужно минут пятнадцать.
Человек годы бессмысленно потерял на твои извраты, а за это время мог бы нормально проект сделать.

...

Рейтинг:

0 / 0

04.11.2016, 20:33

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341606

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

DmitryKnЭто я почитал, и не раз, правда глубинного постижения нет все равно.
Глубинный смысл прост: разработчики VFP не предусмотрели все возможные извраты, поэтому либо делать как они рекомендуют, либо изобретать свои извраты для обхода того что они не предусмотрели. Проще подстраиваться под "как рекомендуют".

...

Рейтинг:

0 / 0

04.11.2016, 20:35

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341609

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

sg12, я тебе тогда ссылку давал куда идти. Могу повторить. Хочешь новичков учить - учи. Мне только не надо объяснять кого чему учить.

...

Рейтинг:

0 / 0

04.11.2016, 20:39

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341630

DmitryKn

Гость

Dima TDmitryKnЭто я почитал, и не раз, правда глубинного постижения нет все равно.
Глубинный смысл прост: разработчики VFP не предусмотрели все возможные извраты, поэтому либо делать как они рекомендуют, либо изобретать свои извраты для обхода того что они не предусмотрели. Проще подстраиваться под "как рекомендуют".

Тогда все можно свести к вопросу - надо ли при закрытии контролировать, что некоторые формы остались "открыты". Если нет - просто закрыли "как рекомендуют", если да - тогда "извраты".

В моем случае такой особой необходимости нет, поскольку вряд ли закрытие редактируемых форм приведет к потере какой-либо информации.
Однако склоняюсь к тому, что бы произвести проверку на наличие "открытых" форм в процедуре Exitprocedure, и в случае их наличия потребовать их сперва закрыть.

Использование QueryUnload, хотя, возможно, и более правильное, представляет сложность для меня на данном этапе. Я и так с большим трудом и не без помощи научился прятать системные тулбары и окна, а в случае применения QueryUnload они все снова вылазят и надо глубоко разбираться, как все откатить обратно.

...

Рейтинг:

0 / 0

04.11.2016, 21:08

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341640

sg12

Участник

Сообщения: 448

Рейтинг: 0 / 0

DmitryKnDima Tпропущено...

Глубинный смысл прост: разработчики VFP не предусмотрели все возможные извраты, поэтому либо делать как они рекомендуют, либо изобретать свои извраты для обхода того что они не предусмотрели. Проще подстраиваться под "как рекомендуют".

Тогда все можно свести к вопросу - надо ли при закрытии контролировать, что некоторые формы остались "открыты". Если нет - просто закрыли "как рекомендуют", если да - тогда "извраты".

В моем случае такой особой необходимости нет, поскольку вряд ли закрытие редактируемых форм приведет к потере какой-либо информации.
Однако склоняюсь к тому, что бы произвести проверку на наличие "открытых" форм в процедуре Exitprocedure, и в случае их наличия потребовать их сперва закрыть.

Использование QueryUnload, хотя, возможно, и более правильное, представляет сложность для меня на данном этапе. Я и так с большим трудом и не без помощи научился прятать системные тулбары и окна, а в случае применения QueryUnload они все снова вылазят и надо глубоко разбираться, как все откатить обратно.

Похоже, вам не приходило в голову, что ФоксПро хороший язык программирования, и на нем писали полноценные проекты.
Просто его время ушло.
Ваша проблема в том, что ДимаТ умеет писать проекты только с одной формой.
При большом количестве форм нужно уметь работать с визуальными классами и с объектом goApp.

...

Рейтинг:

0 / 0

04.11.2016, 21:55

| Ответить | Цитировать | Написать

Удаление окон при закрытии приложения

#39341734

asdor

Участник

Откуда: Москва

Сообщения: 514

Рейтинг: 0 / 0

sg12Похоже, вам не приходило в голову, что ФоксПро хороший язык программирования, и на нем писали полноценные проекты.
Просто его время ушло.
Мда... как бы начинать новый проект на фоксе, не лучший выбор сегодня)
Для изучения, видно студенты используют. Ясно, выбора нет. Для самостоятельного - непонятно зачем.
Можно предположить что есть старый проект на фоксе, который надо поддерживать.

sg12Ваша проблема в том, что ДимаТ умеет писать проекты только с одной формой.
Где то он вас чем то задел))) Вы прямо таки всезнающий)))
sg12При большом количестве форм нужно уметь работать с визуальными классами и с объектом goApp.
Конечно, так лучше.
Для данной задачи создал класс базовой формы, решил в ней все описанные проблемы, и на ее основе делай любые формы, все при закрытии будут вести себя одинаково.
Т.е. без всяких копи-пастов.

...

Рейтинг:

0 / 0

05.11.2016, 11:15

| Ответить | Цитировать | Написать

23 сообщений из 48, страница 2 из 2

все

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Удаление окон при закрытии приложения

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/moderation_log.php?user_name=beerman]:	0ms
get settings:	10ms
get forum list:	15ms
get settings:	8ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	38ms
get topic data:	10ms
get forum data:	2ms
get page messages:	51ms
get tp. blocked users:	1ms
others:	7340ms

total:	7495ms