Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите новичку с Form.KeyPreview! / 6 сообщений из 6, страница 1 из 1
24.12.2003, 11:04
    #32361741
Venera
Venera
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку с Form.KeyPreview!
При нажатии клавиш на Text1 должно действовать событие Text1.KeyPressed (тектс1.готфокус -поставила KeyPreview=.F.), но почему то действует Form.KeyPressed.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.12.2003, 11:16
    #32361771
NNN
NNN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку с Form.KeyPreview!
Версия фокса?
У меня на 8-м все нормально работает
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
PUBLIC oForm
oForm=CREATEOBJECT('form1')
oForm.Visible= .T.

DEFINE CLASS form1 AS form
	DoCreate = .T.
	Caption =  "Form1" 
	KeyPreview = .T.
	Name =  "Form1" 
	ADD OBJECT text1 AS textbox WITH ;
		Height =  25 , ;
		Left =  72 , ;
		Top =  36 , ;
		Width =  241 , ;
		Name =  "Text1" 
	ADD OBJECT text2 AS textbox WITH ;
		Height =  25 , ;
		Left =  72 , ;
		Top =  72 , ;
		Width =  241 , ;
		Name =  "Text2" 
	PROCEDURE KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		WAIT WINDOW 'Form.KeyPress'
	ENDPROC
	PROCEDURE text1.LostFocus
		thisform.KeyPreview= .T. 
	ENDPROC
	PROCEDURE text1.GotFocus
		thisform.KeyPreview= .F. 
	ENDPROC
	PROCEDURE text1.KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		WAIT WINDOW  "Text1.KeyPress" 
	ENDPROC
ENDDEFINE
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.12.2003, 11:21
    #32361781
malec
malec
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку с Form.KeyPreview!
Вообще то KeyPress.
Выглядит это приблизительно так


Код: plaintext
1.
2.
3.
4.
5.
form1.KeyPress:

LPARAMETERS nKeyCode, nShiftAltCtrl
if nKeyCode= 27 
	ThisForm.QueryUnload
endif
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.12.2003, 12:07
    #32361869
Hel!Riser
Hel!Riser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку с Form.KeyPreview!
2 malec

ваще-то выглядит он у вас одинакова, тока в случее NNN визуальный показ того, что отработка проходит пральна, а в тво:ем - определенное дейстие на ESC-кнопарь ;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.12.2003, 14:02
    #32362078
Venera
Venera
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку с Form.KeyPreview!
NNN, malec,
Hel!Riser!!!!!
Спасибо за ответ!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.12.2003, 14:56
    #32362161
malec
malec
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку с Form.KeyPreview!
Всё потому, что у меня Инет низкого качества. Наши сообщения написаны в одно время, но моё дольше шло. После столь детальной демонстрации от NNN нет необходимости ещё что-то писать. И так понятно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите новичку с Form.KeyPreview! / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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