Гость
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Form / 8 сообщений из 8, страница 1 из 1
10.07.2003, 18:14
    #32204910
IgorProgrammer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form
Как поймать нажатие на КРЕСТ формы... и не дать ей закрыться...



NNN:
По поводу пользователей...
Преж чем ты вкусишь кайф от пива... Получишь одну головную боль...
По своей практике знаю... А драгоценные пользователи тычут мышкой по двести раз... Так им надо мессагу на весь екран вешать, что б они не тыкали куда не по-пади... И вообще... лучшая программа - при запуске вырубать тачку{:-)}
...
Рейтинг: 0 / 0
10.07.2003, 19:29
    #32204968
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form
При нажатии на крестик в правом верхнем углу формы срабатывает событие QueryUnload(). Если в нем дать команду NODEFAULT, то закрытие формы не произойдет. Т.е. в этом событии пишешь примерно такой код:

Событие QueryUnload

IF MessageBox('Вы действительно хотите закрыть форму',4+32+256,'Закрытие формы')=7
NODEFAULT
ENDIF

При использовании команды RELEASE или метода ThisForm.Release() событие QueryUnload() игнорируется.
...
Рейтинг: 0 / 0
10.07.2003, 19:41
    #32204975
IgorProgrammer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form
ВладимирМ:

Огромный Сенкс...
А если нажать на скрине??? Мне надо при выходе Анализировать где я и сохранить параметры формы и нужные таблицы...

Че-то я вообще разленился... надо опять (на досуге) умные книги почитать...
После отпуска{:-)}...

Кстать... не снаешь как можно обмануть свою прогу... где стоит считывание даты DATE()

Мне надо в одном случае изменить дату и запустить...
...
Рейтинг: 0 / 0
10.07.2003, 19:55
    #32204984
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form
Перехватом нажатия крестика в главном окне VFP занимается настройка ON SHUTDOWN. Т.е. где-то в тсартовой проге пишешь:

ON SHUTDOWN Do MyProg

И соответсвенно создаешь процедурку

PROCEDURE MyProg
IF MessageBox('Вы действительно хотите закрыть приложение',4+32+256,'Закрытие формы')=7
RETURN
ENDIF
* Действия по штатному закрытию всех форм приложения
...
* Сброс точки останова
CLEAR EVENTS
RETURN

По поводу даты - не понял! Твоя прога, ты и выкручивайся :) Изменить системную дату? Насколько я знаю, родных функций в FoxPro по этому поводу нет. Используй системные (RUN DATE ...) или API-функции
...
Рейтинг: 0 / 0
10.07.2003, 20:52
    #32205013
IgorProgrammer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form
ВладимирМ:
Сенкс...

Работает как дети в школу...

А по-поводу даты... Если я поменю системную дату и прога повиснет... Усе вешалка... А мне надо надуть функцию DATE()...
Откуда эта нехорошая функция считывает значение???
И как ее можно надуть???
...
Рейтинг: 0 / 0
10.07.2003, 22:17
    #32205044
NNN
NNN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form
2IgorProgrammer\r
\r
> Откуда эта нехорошая функция считывает значение??? \r
\r
Из системной даты.\r
\r
> И как ее можно надуть??? \r
\r
Я обманывал, было дело:\r
/topic/21951\r
\r
> По поводу пользователей... \r
\r
Силен ты по топикам прыгать :)\r
А по поводу пользователей.. Они у всех разные, и мои меня устраивают. Я совсем не против, чтобы им было удобнее работать, пусть они и дальше улыбаются, угощают конфетами и приносят пиво :)\r
\r
> И вообще... лучшая программа - при запуске вырубать тачку{:-)} \r
\r
Держи готовый вариант:\r
Код: plaintext
1.
DECLARE integer ExitWindowsEx in win32api integer,integer\r
=ExitWindowsEx( 1 , 4 )
...
Рейтинг: 0 / 0
11.07.2003, 15:43
    #32205842
IgorProgrammer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form
NNN:
Сенкс за готовый вариант... Он у меня уже есть, правда зарегин... в главной проге...

Пошутить бы над пользователями 1 апреля...


А по поводу даты... А если моя прога зависнет... То дате гайки...
...
Рейтинг: 0 / 0
11.07.2003, 15:51
    #32205866
NNN
NNN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Form
2IgorProgrammer

Попробуй вместо DATE() использовать _DIARY, оно правда не изменяется после запуска, но у тебя же программа не круглые сутки работает.
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Form / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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