Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / "ON KEY LABEL MOUSE" хочу NODEFAULT / 7 сообщений из 7, страница 1 из 1
02.05.2007, 06:54
    #34498698
Kruchinin Pahan
Kruchinin Pahan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"ON KEY LABEL MOUSE" хочу NODEFAULT
Контрол вызывает модальную форму. Форма вешает ON KEY LABEL MOUSE. Если клик мыши происходит вне формы, вызывается Destroy формы. Проблема в том, что форма нормально дестроится, а клик начинает обрабатываться дальше (контролами, формами). Надо бы этот клик как-нибудь подавить. В хелпе не нашел.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.05.2007, 08:45
    #34498777
po2
po2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"ON KEY LABEL MOUSE" хочу NODEFAULT
В событии Unload пишем:
Код: plaintext
ON KEY LABEL MOUSE &&снимет назначение именно на Click мыши
или
Код: plaintext
ON KEY &&снимет все назначения ON KEY LABEL
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.05.2007, 11:30
    #34499115
Kruchinin Pahan
Kruchinin Pahan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"ON KEY LABEL MOUSE" хочу NODEFAULT
po2В событии Unload пишем:
Код: plaintext
ON KEY LABEL MOUSE &&снимет назначение именно на Click мыши
или
Код: plaintext
ON KEY &&снимет все назначения ON KEY LABEL

Не, как снять Key Label мне понятно, тем более лучше использовать PUSH/POP KEY для моих задач.

Проблема в том, что я обработал клик и хочу погасить событие. А получается так, что я уничтожаю форму по клику, а событие Click начинает обрабатываться скрином, формами, объектами под курсором мыши.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.05.2007, 12:17
    #34499249
po2
po2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"ON KEY LABEL MOUSE" хочу NODEFAULT
Понятно. Если пишешь на девятке, то лучше напрячь BindEvent(), тогда контроль будет полным. В младших версиях можно использовать функцию inkey(). Примерно так:
Код: plaintext
1.
2.
3.
4.
5.
6.
on key label mouse MyFunc()
proc MyFunc
   if ... &&условие на перехват нажатия, например щелчек вне пределов активной формы
= inkey( 0 ,'hm')
...&&действия для закрытия формы
retu
endi
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.05.2007, 12:22
    #34499265
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"ON KEY LABEL MOUSE" хочу NODEFAULT
Не уверен, но если версия VFP6 или старше, можно попробовать СНАЧАЛА пропихнуть мышиное событие, а ПОТОМ закрывать форму. Через DOEVENTS. Собственно, это то же самое, что написал po2 , только вместо Inkey() надо написать DOEVENTS.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.05.2007, 13:15
    #34499441
Kruchinin Pahan
Kruchinin Pahan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"ON KEY LABEL MOUSE" хочу NODEFAULT
Шпасибо всем. Забыл сказать, что Fox 8-ой.
1. DOEVENTS попробовал. Поведение интересней стало, только надо где-то ручками отрефрешивать то, что находилось под формой. Почему-то само не рефрешится.
2. INKEY попробовал. Собственно, сам копал в эту же сторону. До 'hm' недокопал. ;-/
3. с BINDEVENT недопонял. Но предположил, раз говорится про 9-ку, то биндить системные события, например, WM_NCMBUTTONDOWN. Я правильно понял здесь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.05.2007, 14:39
    #34499697
po2
po2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"ON KEY LABEL MOUSE" хочу NODEFAULT
По п.3. Да в 9-ке BindEvent позволяет перехватывать системные события и назначать на них функции VFP.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / "ON KEY LABEL MOUSE" хочу NODEFAULT / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 338ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1589419]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 25ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 234ms
total:  338ms
x
x
Закрыть


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