Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Сетфокус / 8 сообщений из 8, страница 1 из 1
24.03.2006, 13:59
    #33623496
Ик
Ик
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сетфокус
В форме метод keyPress выдается сообщение
Код: plaintext
1.
2.
3.
MESSAGEBOX( "Ошибка!!!")
thisform.txtns.value =  2 
thisform.txtinn.value = ''
thisform.txtinn.setfocus()

Вроде все правильно а фокус уходит на кнопку в чем проблема?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2006, 15:08
    #33623819
Juri0
Juri0
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сетфокус
Что надо сделать то ? Чтобы при пустом значении объект не терял фокус?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2006, 15:19
    #33623850
Ик
Ик
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сетфокус
Ну да
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2006, 15:24
    #33623866
Juri0
Juri0
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сетфокус
WITH thisform
IF EMPTY(marray(1,1))=.T.
.TabStop= .F.
MESSAGEBOX('Текст сообщения,0+16+0,'Ошибка!')
ELSE
.TabStop= .T.
ENDIF
ENDWITH

Текст из рабочей программы. Только у меня значение textbox берется из массива, переделаешь под себя и все.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2006, 15:36
    #33623898
Ик
Ик
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сетфокус
Огромный сенкз
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2006, 16:49
    #33624178
Juri0
Juri0
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сетфокус
Кстати, это работает при нажатии клавиш. Другой объект все равно может получить фокус при помощи мыши. Так что на кнопке выхода из формы (сохранения, закрытия) я думаю надо дополнительно контролировать наличие заполнения нужного объекта. Я делаю это так

DO CASE
CASE EMPTY(marray(1,3))=.T.
MESSAGEBOX('Пропущен обязательный параметр !!!',0+16+0,'Внимание !')
OTHERWISE
....все заполнено.Выполняются необходимые действия
ENDCASE
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.03.2006, 00:25
    #33625536
Igor Korolyov
Igor Korolyov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сетфокус
Hi Juri0!

Ужос :)

2 Ик
LostFocus + NODEFAULT в нём
или
Valid + RETURN 0 в нём

Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.03.2006, 09:50
    #33626329
Juri0
Juri0
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сетфокус
HI, Igor Korolyov ! Ничего не поделаешь, издержки FP for DOS. Но я стараюсь исправиться, надеюся со временем будет лучше.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Сетфокус / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 469ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1592039]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 170ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 25ms
get tp. blocked users:
 1ms
others: 239ms
total:  469ms
x
x
Закрыть


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