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

Вроде все правильно а фокус уходит на кнопку в чем проблема?
...
Рейтинг: 0 / 0
24.03.2006, 13:59
| Ответить | Цитировать | Написать  
Сетфокус
    #33623819
Juri0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Juri0
Гость
Что надо сделать то ? Чтобы при пустом значении объект не терял фокус?
...
Рейтинг: 0 / 0
24.03.2006, 15:08
| Ответить | Цитировать | Написать  
Сетфокус
    #33623850
Ик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ик
Гость
Ну да
...
Рейтинг: 0 / 0
24.03.2006, 15:19
| Ответить | Цитировать | Написать  
Сетфокус
    #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:24
| Ответить | Цитировать | Написать  
Сетфокус
    #33623898
Ик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ик
Гость
Огромный сенкз
...
Рейтинг: 0 / 0
24.03.2006, 15:36
| Ответить | Цитировать | Написать  
Сетфокус
    #33624178
Juri0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Juri0
Гость
Кстати, это работает при нажатии клавиш. Другой объект все равно может получить фокус при помощи мыши. Так что на кнопке выхода из формы (сохранения, закрытия) я думаю надо дополнительно контролировать наличие заполнения нужного объекта. Я делаю это так

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

Ужос :)

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

Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
26.03.2006, 00:25
| Ответить | Цитировать | Написать  
Сетфокус
    #33626329
Juri0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Juri0
Гость
HI, Igor Korolyov ! Ничего не поделаешь, издержки FP for DOS. Но я стараюсь исправиться, надеюся со временем будет лучше.
...
Рейтинг: 0 / 0
27.03.2006, 09:50
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Сетфокус
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=33623496&tid=1592039]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 140ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 241ms
total:  485ms
созд. / загр.: 485ms
x
x
Закрыть


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