ReSQL.ru
     
powered by simpleCommunicator - 2.0.40     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Удаление окон при закрытии приложения
23 сообщений из 48, страница 2 из 2
  2  все
Удаление окон при закрытии приложения
    #39341446
asdor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asdor
Участник
DmitryKn,
авторЕсли было открыто n окон и одно из них в режиме редактирования, но неактивно, т.е. не очевидно, и пользователь внезапно нажал "крестик" и подтвердил свое желание выйти, забыв о существовании формы в режиме редактирования, то какой код остановит выход из приложения, конечно, но уже запустятся всякие процессы закрытия, повылазят тулбары и системные окна и т.д. и, в конечном счете все сведется к саспендигнореканселу с последующим диспетчером задач.

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


Просто сначала закройте все открытые окна.
Сама форма, должна знать в каком она состоянии, и в случае нужды, задать вопрос.
После удачного закрытия всех окон, можно продолжать уничтожать остальное.
...
Рейтинг: 0 / 0
04.11.2016, 14:26
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341452
DmitryKn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DmitryKn
Гость
asdorDmitryKn,

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

Ну или так
...
Рейтинг: 0 / 0
04.11.2016, 14:38
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341460
asdor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asdor
Участник
asdor,
Не или)))
Только сам объект знает, как лучше вести себя при уничтожении (и не толькл).
Не надо лезть в них.
Есть однотипные события, действия... дальше совсем банально)
...
Рейтинг: 0 / 0
04.11.2016, 15:00
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341543
DmitryKn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
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



По идее, при попытке закрыть приложение, должны закрыться последовательно все формы, при закрытии формы должен быть проверен код QueryUnload и выдан запрос.
Однако при нажатии на "крестик" приложения при открытой на редактирование форме, просто все закрывает и все, как если бы никакого кода в QueryUnload нету.
Скорее всего this.isedit = .F.
...
Рейтинг: 0 / 0
04.11.2016, 19:00
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341564
DmitryKn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DmitryKn
Гость
Dima T,

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

Более того, если при редактировании формы не указывать closable=.f., то код в QueryUnload срабатывает, если саму открытую форму попытаться закрыть "по-крестику". Именно форму, а не само приложение.
...
Рейтинг: 0 / 0
04.11.2016, 19:06
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341567
DmitryKn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DmitryKn
Гость
[quot Dima T]DmitryKnВ QueryUnload формы:

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

И, если как я ранее проверку открытых форм делал - считается количество открытых форм, т.е. isedit присутствует очевидно.
...
Рейтинг: 0 / 0
04.11.2016, 19:16
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341571
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
DmitryKnБолее того, если при редактировании формы не указывать closable=.f., то код в QueryUnload срабатывает, если саму открытую форму попытаться закрыть "по-крестику". Именно форму, а не само приложение.
Зачем указывать closable=.f. ? Ткнет пользователь в крестик формы - выйдет сообщение. Зачем закрытие формы блокировать?
Возможно QueryUnload не отрабатывает из-за closable=.f., не проверял.
...
Рейтинг: 0 / 0
04.11.2016, 19:20
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341574
DmitryKn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DmitryKn
Гость
А какова будет вообще последовательность в процедуре 19859075 ?

Может FOR ... ENDFOR не успевает отработать?
...
Рейтинг: 0 / 0
04.11.2016, 19:30
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341582
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Я проверил:
при closable = .f. и закрытии окна фокса крестиком - QueryUnload() НЕ вызывается, просто закрывается форма.
при closable = .t. QueryUnload() срабатывает хоть на крестик окна фокса, хоть на крестик формы.

поставь первой строкой в QueryUnload()
Код: sql
1.
set step on


и посмотри отладчиком что там происходит.
...
Рейтинг: 0 / 0
04.11.2016, 19:37
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341583
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
DmitryKnА какова будет вообще последовательность в процедуре 19859075 ?

Может FOR ... ENDFOR не успевает отработать?
Там хуже все, при закрытии таким способом ссылки на активную форму остаются и она не до конца уничтожается, поэтому надо прикручивать таймер, который за первый такт выполнит цикл, а вторым тактом все остальное. Изврат вобщем нужен.
...
Рейтинг: 0 / 0
04.11.2016, 19:41
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341587
sg12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sg12
Участник
Dima TИзврат вобщем нужен.

Без изврата никак?
...
Рейтинг: 0 / 0
04.11.2016, 19:53
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341589
DmitryKn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DmitryKn
Гость
Dima TDmitryKnА какова будет вообще последовательность в процедуре 19859075 ?

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

П-фф...Так может все-таки проверка на наличие открытых форм не так уж плоха? Или изврат все-таки обязателен для нормального приложения? ))
...
Рейтинг: 0 / 0
04.11.2016, 19:58
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341592
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
sg12Dima TИзврат вобщем нужен.

Без изврата никак?
Стандартным путем 19851880
...
Рейтинг: 0 / 0
04.11.2016, 20:06
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341594
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
DmitryKnDima Tпропущено...

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

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


а окончание работы это пару строк типа
Код: sql
1.
2.
3.
4.
5.
READ events
* тут действия при выходе
ON shutdown
ON ERROR
QUIT


почитай
...
Рейтинг: 0 / 0
04.11.2016, 20:13
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341600
DmitryKn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DmitryKn
Гость
Dima T,

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

Почитаю, видимо, еще раз (
...
Рейтинг: 0 / 0
04.11.2016, 20:28
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341605
sg12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sg12
Участник
Dima T

ДимаТ, я тебе еще года два назад советовал не вводить в заблуждение хотя бы новичков.
Это старперы понимают, что к чему, и разберутся при необходимости.
ТС ведь вначале выложил свой проект, он простейший и чтобы прочитать его, нужно минут пятнадцать.
Человек годы бессмысленно потерял на твои извраты, а за это время мог бы нормально проект сделать.
...
Рейтинг: 0 / 0
04.11.2016, 20:33
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341606
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
DmitryKnЭто я почитал, и не раз, правда глубинного постижения нет все равно.
Глубинный смысл прост: разработчики VFP не предусмотрели все возможные извраты, поэтому либо делать как они рекомендуют, либо изобретать свои извраты для обхода того что они не предусмотрели. Проще подстраиваться под "как рекомендуют".
...
Рейтинг: 0 / 0
04.11.2016, 20:35
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341609
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
sg12, я тебе тогда ссылку давал куда идти. Могу повторить. Хочешь новичков учить - учи. Мне только не надо объяснять кого чему учить.
...
Рейтинг: 0 / 0
04.11.2016, 20:39
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341630
DmitryKn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DmitryKn
Гость
Dima TDmitryKnЭто я почитал, и не раз, правда глубинного постижения нет все равно.
Глубинный смысл прост: разработчики VFP не предусмотрели все возможные извраты, поэтому либо делать как они рекомендуют, либо изобретать свои извраты для обхода того что они не предусмотрели. Проще подстраиваться под "как рекомендуют".

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

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

Использование QueryUnload, хотя, возможно, и более правильное, представляет сложность для меня на данном этапе. Я и так с большим трудом и не без помощи научился прятать системные тулбары и окна, а в случае применения QueryUnload они все снова вылазят и надо глубоко разбираться, как все откатить обратно.
...
Рейтинг: 0 / 0
04.11.2016, 21:08
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341640
sg12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sg12
Участник
DmitryKnDima Tпропущено...

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

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

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

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

Похоже, вам не приходило в голову, что ФоксПро хороший язык программирования, и на нем писали полноценные проекты.
Просто его время ушло.
Ваша проблема в том, что ДимаТ умеет писать проекты только с одной формой.
При большом количестве форм нужно уметь работать с визуальными классами и с объектом goApp.
...
Рейтинг: 0 / 0
04.11.2016, 21:55
| Ответить | Цитировать | Написать  
Удаление окон при закрытии приложения
    #39341734
asdor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asdor
Участник
sg12Похоже, вам не приходило в голову, что ФоксПро хороший язык программирования, и на нем писали полноценные проекты.
Просто его время ушло.
Мда... как бы начинать новый проект на фоксе, не лучший выбор сегодня)
Для изучения, видно студенты используют. Ясно, выбора нет. Для самостоятельного - непонятно зачем.
Можно предположить что есть старый проект на фоксе, который надо поддерживать.

sg12Ваша проблема в том, что ДимаТ умеет писать проекты только с одной формой.
Где то он вас чем то задел))) Вы прямо таки всезнающий)))
sg12При большом количестве форм нужно уметь работать с визуальными классами и с объектом goApp.
Конечно, так лучше.
Для данной задачи создал класс базовой формы, решил в ней все описанные проблемы, и на ее основе делай любые формы, все при закрытии будут вести себя одинаково.
Т.е. без всяких копи-пастов.
...
Рейтинг: 0 / 0
05.11.2016, 11:15
| Ответить | Цитировать | Написать  
23 сообщений из 48, страница 2 из 2
  2  все
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Удаление окон при закрытии приложения
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=39341571&tid=1582037]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 39ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 10ms
total:  155ms
созд. / загр.: 155ms
x
x
Закрыть


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