powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как можно написать командный код в On key label
6 сообщений из 6, страница 1 из 1
как можно написать командный код в On key label
    #37874188
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть форма(FormDesigner) в ней метод thisform._browse(select x; browse), в load формы пишу on key label CTRL+z thisform._browse выдаёт ошибку, можно в load написать on key label CTRL+z browse, но мне нужен переход именно в эту таблицу, можно написать отдельную процедуру(on key label CTRL+z do _browse), но не охота плодить мелких процедур в проекте, как можно написать командный код в On key label
...
Рейтинг: 0 / 0
как можно написать командный код в On key label
    #37874221
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не надо использовать on key label. Он не работает т.к. выполняется не в контексте формы, т.е. не знает к чему приложить thisform.
Можно вместо thisform написать _screen.activefоrm, но все переглючит если на другой форме нажмут.

Лучше так делать: ставишь у формы KeyPreview = .T.
и перехватываешь нажатие в KeyPress() формы
Код: sql
1.
2.
3.
4.
5.
6.
LPARAMETERS tnKeyCode, tnShiftAltCtrl

if tnKeyCode = 'z' and tnShiftAltCtrl = Control && поправь проверку, не помню точно как пишется
     thisform._browse(select x; browse)
     nodefault
endif
...
Рейтинг: 0 / 0
как можно написать командный код в On key label
    #37874370
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
спасибо
...
Рейтинг: 0 / 0
как можно написать командный код в On key label
    #37875881
VIVA_CA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
q1w1e1,

Если можно, поделитесь опытом - подробнее что конкретно в созданном Вами методе _browse и в KeyPress (уже в рабочем варианте)
...
Рейтинг: 0 / 0
как можно написать командный код в On key label
    #37877499
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Это меня попросили оператор(главный), чтоб быстро поправить данные(например бывает в некоторых случаях в 500 записях изменился месяц заказа и т.д.), поэтому чтоб никто не знал, кроме одного..:-) по комбинации CTRL+Z, делаю прямое редактирование таблицы, поэтому в методе _browse

select tabl
browse

а дальше, как писал "Dima T"

KeyPreview = .T.

метод Keypress
LPARAMETERS nKeyCode, nShiftAltCtrl
if nKeyCode = 26 and nShiftAltCtrl = 2
thisform._browse
nodefault
endif

и всё..., можно конечно поставить Enable всем объектам, написать browse c описанием каждого поля, но мне это не нужно... да, формы у меня все модальные...меньше хлопот..
...
Рейтинг: 0 / 0
как можно написать командный код в On key label
    #37877605
VIVA_CA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо!
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как можно написать командный код в On key label
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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