VPF::кликанье мыши вне меню - Форум программистов

baykanik

Дата 23.10.2009, 22:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 23.10.2009

Репутация: нет
Всего: нет

Подскажите, пожалста. У меня уже готовый проект, почти. Запустила для испытания и о ужас.: случайно
кликнула мышью вне меню- программа вылетела. Что делать??? Как предостеречься от этого события?

Данкинг

Дата 23.10.2009, 23:17 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130

Цитата(baykanik @ 23.10.2009, 23:37

)

случайно
кликнула мышью вне меню- программа вылетела.

А развить эту тему чуть более подробно можно? smile

Цитата(baykanik @ 23.10.2009, 23:37

)

Как предостеречься от этого события?

Не запускать почти готовых проектов smile

(шутка)

В общем, ждём подробностей. smile

--------------------

There's nothing left but silent epitaphs.

baykanik

Дата 24.10.2009, 22:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 23.10.2009

Репутация: нет
Всего: нет

А что конкретно? Хотелось бы кликнуть мышью вне меню и не получить выход из проги. Меню самое обчное, вертикальное.

Добавлено через 5 минут и 20 секунд
код типа такого

Код


CLEAR
ACTIVATE SCREEN
DEFINE POPUP popFruits FROM 5,5 ;
   MULTISELECT MARGIN            && Create multi-choice menu
DEFINE BAR 1 OF popFruits ;
   PROMPT '\<Apples'  MARK CHR(3)    && First item
DEFINE BAR 2 OF popFruits ;
   PROMPT '\<Bananas' MARK CHR(4)    && Second item
DEFINE BAR 3 OF popFruits ;
   PROMPT '\<Grapes'  MARK CHR(5) && Third item
DEFINE BAR 4 OF popFruits ;
   PROMPT '\<Lemons'  MARK CHR(6)    && Fourth item
@ 12,5 SAY 'Your choices:'
ON SELECTION POPUP popFruits DO yourchoice    && Choice routine
ACTIVATE POPUP popFruits 
PROCEDURE yourchoice            && Executed when choice is made
@ 13,5 CLEAR
FOR gnCount = 1 TO CNTBAR('popFruits')      && Loop for # of items
   IF MRKBAR('popFruits', gnCount) = .T.      && Option is marked,
      ? PRMBAR('popFruits', gnCount) AT 5      && display caption
   ENDIF
NEXT

О котором писал Cashey .

Данкинг

Дата 24.10.2009, 22:41 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130

baykanik, прога на VFP? Тогда почему не пользоваться построителями меню вместо использования кода, поддержка которого в VFP оставлена для совместимости с FoxPro 2.6 и т.п.?

Да и в любом случае, никаких выходов при клике вне меню быть не может.

--------------------

There's nothing left but silent epitaphs.

baykanik

Дата 25.10.2009, 20:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 23.10.2009

Репутация: нет
Всего: нет

Попробуй щелкни в вышеуказанном коде вне меню . Код кста, взят из solution VFP 8

Данкинг

Дата 25.10.2009, 21:29 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130

Попробовал. Программа и правда завершается. Почему - не знаю. smile

Я только никак не пойму: почему бы не сделать обычное виндовое меню вместо такого?
А вообще - если программа состоит только из одного меню, то не факт, что она не должна работать именно так, т.е. выходить при клике вне меню. Кто его знает. smile

Реальное приложение ведь таким, как этот код, не будет.

Это сообщение отредактировал(а) Данкинг - 25.10.2009, 23:01

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Foxpro/Clipper/Dbase \| Следующая тема »