ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите новичку с Form.KeyPreview!
6 сообщений из 6, страница 1 из 1
Помогите новичку с Form.KeyPreview!
    #32361741
Venera
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Venera
Гость
При нажатии клавиш на Text1 должно действовать событие Text1.KeyPressed (тектс1.готфокус -поставила KeyPreview=.F.), но почему то действует Form.KeyPressed.
...
Рейтинг: 0 / 0
24.12.2003, 11:04
| Ответить | Цитировать | Написать  
Помогите новичку с Form.KeyPreview!
    #32361771
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NNN
Участник
Версия фокса?
У меня на 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:16
| Ответить | Цитировать | Написать  
Помогите новичку с Form.KeyPreview!
    #32361781
malec
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
malec
Гость
Вообще то KeyPress.
Выглядит это приблизительно так


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

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

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


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