:: Visual Foxpro, Foxpro for DOS
Как узнать, что последним была мышка или клавиатура?
Ydin
Автор

Сообщений: 7648
Откуда: Киев
Дата регистрации: 16.12.2005
Не могу вспомнить где и чем закончился этот вопрос самому себе когда-то давно
Что раньше клавиатура или мышка?



Исправлено 2 раз(а). Последнее : Ydin, 27.05.20 20:37
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
Chemberzhy

Сообщений: 13142
Откуда: Измаил
Дата регистрации: 28.04.2009
? iif(lastkey()=-100,"мышка-норушка (одна из трех кнопок)","клава")


------------------
Что-то с памятью моей стало, всё что было не со мной- помню.




Исправлено 2 раз(а). Последнее : Chemberzhy, 25.05.20 20:51
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
Ydin
Автор

Сообщений: 7648
Откуда: Киев
Дата регистрации: 16.12.2005
Спасибо!
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
Chemberzhy

Сообщений: 13142
Откуда: Измаил
Дата регистрации: 28.04.2009
Пожалуйста


------------------
Что-то с памятью моей стало, всё что было не со мной- помню.




Исправлено 1 раз(а). Последнее : Chemberzhy, 25.05.20 20:55
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002
Всё шутишь


------------------
WBR, Igor
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
Chemberzhy

Сообщений: 13142
Откуда: Измаил
Дата регистрации: 28.04.2009



------------------
Что-то с памятью моей стало, всё что было не со мной- помню.
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
Ydin
Автор

Сообщений: 7648
Откуда: Киев
Дата регистрации: 16.12.2005
Chemberzhy
? iif(lastkey()=-100,"мышка-норушка (одна из трех кнопок)","клава"

Интересно, когда это работает для мышки?
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
Chemberzhy

Сообщений: 13142
Откуда: Измаил
Дата регистрации: 28.04.2009
Ну, например, вот так вот потесть
SET ESCAPE OFF
DO WHILE LASTKEY()#27
WAIT iif(lastkey()=-100,"мышка-норушка (одна из трех кнопок)","клава") wind
ENDDO
SET ESCAPE ON


------------------
Что-то с памятью моей стало, всё что было не со мной- помню.




Исправлено 1 раз(а). Последнее : Chemberzhy, 26.05.20 09:50
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
Taran

Сообщений: 13623
Откуда: Красноярск
Дата регистрации: 16.01.2008
Жулик, но работает.
В хелпе не смог найти такую фичу.
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
Chemberzhy

Сообщений: 13142
Откуда: Измаил
Дата регистрации: 28.04.2009
Taran
Жулик, но работает.
В хелпе не смог найти такую фичу.

Гланды через опу


------------------
Что-то с памятью моей стало, всё что было не со мной- помню.
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
lulgu

Сообщений: 1838
Дата регистрации: 30.11.2016
Интересные проблемы в древности решали.
При просмотре тем создается впечатление, что в фоксе развитие двинулось вспять.
Ratings: 0 negative/1 positive
Re: Как узнать, что последним была мышка или клавиатура?
Ydin
Автор

Сообщений: 7648
Откуда: Киев
Дата регистрации: 16.12.2005
lulgu
Интересные проблемы в древности решали.
При просмотре тем создается впечатление, что в фоксе развитие двинулось вспять.

И тут пришел поручик Ржевский
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
Crispy

Сообщений: 18571
Дата регистрации: 16.05.2005
Тема ностальгическая? ;)
Или таки для чего-то практического?


------------------
В действительности все иначе, чем на самом деле.
                                      (Антуан де Сент-Экзюпери)
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
Ydin
Автор

Сообщений: 7648
Откуда: Киев
Дата регистрации: 16.12.2005
Crispy
Тема ностальгическая? ;)
Или таки для чего-то практического?

На форме строятся в Фреймворке объекты среди кот. textbox'ы, у кот. прописаны скрипты к нескольким событиям типа
GotFocus, Lostfocus, Valid и другие.
Требуется распознать как с объекта уходим -
1) просто по Enter или
2) мышкой на другом объекте или стрелками

Для случая с Return 0 (или др. целое) на Valid не хватало у LastKey() определение мышки...

Проблему решил через When. Туда не заходит в 1-м случае.
Т.е. мне уже не надо.

Тема не ностальгическая.

Собственно, и без этого обходился раньше, но в случаях со скриптом на Valid, где ставят предупреждения типа MESSAGEBOX и потеря с возвратом фокуса работало некорректно для второго случая
Можно было подправить скрипты, но не я их пишу. Пишу под них, чтобы так тоже работало
Но Lastkey() у меня не дает -100. Дает то, что клавой нажато последнее/
А код Чембержи работает. Походу не везде работает. Или как-то гасится этими MouseDown/MouseUp.
Сохраняет код клавы



Исправлено 4 раз(а). Последнее : Ydin, 26.05.20 16:39
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
Simple777

Сообщений: 33855
Дата регистрации: 05.11.2006
Chemberzhy
Ну, например, вот так вот потесть
SET ESCAPE OFF
DO WHILE LASTKEY()#27
WAIT iif(lastkey()=-100,"мышка-норушка (одна из трех кнопок)","клава") wind
ENDDO
SET ESCAPE ON

В FPD 2.6 опознается только левый клик мыши. На среднюю и правую кнопку мыши нет выхода из WAIT.

Вообще же нажатие мыши можно обрабатывать в INKEY(), а также и по ON KEY LABEL LEFTMOUSE и ON KEY LABEL RIGHTMOUSE
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
Chemberzhy

Сообщений: 13142
Откуда: Измаил
Дата регистрации: 28.04.2009
Simple777
В FPD 2.6

Ща лулгу ваще разорвет от негодования!


------------------
Что-то с памятью моей стало, всё что было не со мной- помню.
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
Ydin
Автор

Сообщений: 7648
Откуда: Киев
Дата регистрации: 16.12.2005
Лулгу трудно предсказать.
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
Taran

Сообщений: 13623
Откуда: Красноярск
Дата регистрации: 16.01.2008
Chemberzhy
Simple777
В FPD 2.6

Ща лулгу ваще разорвет от негодования!



Думаю что нет. Он как про гланды и опу увидел - решил влезть язычком в ...
Так то в технических вопросах он "скромный" человек. Или человекша.
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
Simple777

Сообщений: 33855
Дата регистрации: 05.11.2006
Chemberzhy
Simple777
В FPD 2.6

Ща лулгу ваще разорвет от негодования!

Т-с-с! Не вспугни!
Ratings: 0 negative/0 positive
Re: Как узнать, что последним была мышка или клавиатура?
akvvohinc

Сообщений: 4203
Откуда: Москва
Дата регистрации: 11.11.2008
Ydin
Но Lastkey() у меня не дает -100. Дает то, что клавой нажато последнее

А что, есть такие, у кого Lastkey() обрабатывает мышь?

Ну, а коды Lastkey() соответствуют кодам Inkey(), где для обработки мыши требовался особый параметр и возвращался
код 151.
Ratings: 0 negative/0 positive


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

On-line: 19 akvvohinc  (Гостей: 18)

© 2000-2024 Fox Club 
Яндекс.Метрика