powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / сброс нажатия мыши в окне Visual Foxpro
6 сообщений из 6, страница 1 из 1
сброс нажатия мыши в окне Visual Foxpro
    #35319930
Олег29
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброго дня всем, как быть если нужно сбросить нажатие мышью в главном окне VFP? (8.0... и выше)
примерно то же что и CLEAR TYPEAHEAD.

Просто моя программа запускает дос приложение и если активизировать во время работы главное окно мышью команда wait не делает ожидания ("Нажмите любую клавишу") так как была нажата мышь и wait уже не ждёт.
Спасибо заранее...
...
Рейтинг: 0 / 0
сброс нажатия мыши в окне Visual Foxpro
    #35321334
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Разберись лучше с запуском. Если надо ждать - запускай с ожиданием завершения запущенной проги, а не с эмуляцией ожидания.
...
Рейтинг: 0 / 0
сброс нажатия мыши в окне Visual Foxpro
    #35322264
Олег29
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
мышь отключить надо или очистить буфер нажатий мышью...

с запуском я разобрался...

ps
неужель нет такой команды в фоксе? была в же досе set mouse off
у меня нет объекта просто прога... был бы объект - форма - можно было бы, а так команды нет однако... или я ошибаюсь...
...
Рейтинг: 0 / 0
сброс нажатия мыши в окне Visual Foxpro
    #35322338
Kruchinin Pahan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Олег29мышь отключить надо или очистить буфер нажатий мышью...

с запуском я разобрался...

ps
неужель нет такой команды в фоксе? была в же досе set mouse off
у меня нет объекта просто прога... был бы объект - форма - можно было бы, а так команды нет однако... или я ошибаюсь...
Тебе правильно говорят - не майся дурью.
А если хочешь помаяться - копай в этом направлении:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
PROCEDURE NoMice
LPARAMETERS tlMousePressed
IF tlMousePressed
	= INKEY( 0 ,'hm')
ELSE
	PUSH KEY CLEAR
	ON KEY LABEL MOUSE nomice(.T.)
ENDIF
...
Рейтинг: 0 / 0
сброс нажатия мыши в окне Visual Foxpro
    #35322348
XAndy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Олег29
Wait используется только для отладки. Сделай своё окно для ожидания, с "человеческим лицом", вместо использования досовского анахронизма.

Ну если уж совсем лень, то может так:
Код: plaintext
1.
wait "Mmmmmmmmmmm" window nowait
inkey( 0 )
Извращение ещё то... :)
...
Рейтинг: 0 / 0
сброс нажатия мыши в окне Visual Foxpro
    #35322406
Олег29
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
да спасибо, может я не конца точно объяснил...
я сделал типа wait to var
и проверяю на "U"
вообще конечно всё это чепуха вы правы... у меня нет просто объектов...

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


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