Гость
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как можно написать командный код в On key label / 6 сообщений из 6, страница 1 из 1
11.07.2012, 08:08
    #37874188
q1w1e1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как можно написать командный код в On key label
Есть форма(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
11.07.2012, 08:41
    #37874221
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как можно написать командный код в On key label
Не надо использовать 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
11.07.2012, 10:16
    #37874370
q1w1e1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как можно написать командный код в On key label
спасибо
...
Рейтинг: 0 / 0
12.07.2012, 09:08
    #37875881
VIVA_CA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как можно написать командный код в On key label
q1w1e1,

Если можно, поделитесь опытом - подробнее что конкретно в созданном Вами методе _browse и в KeyPress (уже в рабочем варианте)
...
Рейтинг: 0 / 0
13.07.2012, 05:08
    #37877499
q1w1e1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как можно написать командный код в On key label
Это меня попросили оператор(главный), чтоб быстро поправить данные(например бывает в некоторых случаях в 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
13.07.2012, 09:12
    #37877605
VIVA_CA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как можно написать командный код в On key label
Спасибо!
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как можно написать командный код в On key label / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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