ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ComboBox
9 сообщений из 9, страница 1 из 1
ComboBox
    #33424088
Stind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stind
Гость
Всем привет!
Вопрос такой. В форме есть Техт и Combo. По ЕНТЕР обрабатывается содержание Текста и курсорчик перебегает на Комбо. Как сделать, чтобы следующим Ентером Комбо открылся?
Спасибо!
...
Рейтинг: 0 / 0
08.12.2005, 09:37:44
| Ответить | Цитировать | Написать  
ComboBox
    #33424123
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
Если ты хочешь, чтобы при попадании на объект ComboBox, он раскрывался, то можешь в его событие GotFocus добавить код:
Код: plaintext
KEYBOARD '{ALT+DNARROW}'

Если же хочешь, что-бы это происходило при нажатии клавиши ENTER, то в KeyPress ComboBox вставь код:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
LPARAMETERS nKeyCode, nShiftAltCtrl

IF nKeyCode =  13 
KEYBOARD '{ALT+DNARROW}'
NODEFAULT
ELSE
DODEFULT(nKeyCode, nShiftAltCtrl)
ENDIF
Но тогда нужно, что-бы при GotFocus на него,
Код: plaintext
1.
THIS.OldKeyPreView = THISFORM.KeyPreView
THISFORM.KeyPreView = .F.
А при LostFocus надо бы восстановить эту установу формы
Код: plaintext
THISFORM.KeyPreView = THIS.OldKeyPreView
Разумеется, все это надо бы оформить как класс и добавить в него свойство OldKeyPreView
С уважением, Алексей
...
Рейтинг: 0 / 0
08.12.2005, 09:54:33
| Ответить | Цитировать | Написать  
ComboBox
    #33424130
Stind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stind
Гость
Огромное спасибо - то что доктор прописал!!!
...
Рейтинг: 0 / 0
08.12.2005, 09:57:10
| Ответить | Цитировать | Написать  
ComboBox
    #33424311
Stind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stind
Гость
Еще вопросик на эту тему.
Как сделать так, чтобы курсор сам прыгнул на первую позицию в Комбобоксе. Чтобы не надо было лишний раз мышкой щелкать?
...
Рейтинг: 0 / 0
08.12.2005, 10:40:51
| Ответить | Цитировать | Написать  
ComboBox
    #33424381
Stind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stind
Гость
StindЕще вопросик на эту тему.
Как сделать так, чтобы курсор сам прыгнул на первую позицию в Комбобоксе. Чтобы не надо было лишний раз мышкой щелкать?

Дополнение.
В Комбе - массив. FirstElement=1, но не работает.
...
Рейтинг: 0 / 0
08.12.2005, 10:55:50
| Ответить | Цитировать | Написать  
ComboBox
    #33424495
alexFV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexFV
Участник
может попробовать .Value = 1
...
Рейтинг: 0 / 0
08.12.2005, 11:24:14
| Ответить | Цитировать | Написать  
ComboBox
    #33424517
Stind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stind
Гость
alexFVможет попробовать .Value = 1

Ошибка...
...
Рейтинг: 0 / 0
08.12.2005, 11:29:56
| Ответить | Цитировать | Написать  
ComboBox
    #33424597
alexFV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexFV
Участник
какая ошибка?...а где ставишь Value = 1...поставь в окне свойств...или в ините , но до этого в окне свойств комбо помтавь value=0
...
Рейтинг: 0 / 0
08.12.2005, 11:53:19
| Ответить | Цитировать | Написать  
ComboBox
    #33424998
Stind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stind
Гость
Спасибо. Буду разбираться.
Еще вопрос. При раскрытии списка Комбо набираю нужный текст и курсор встает на данную позицию. Но это в середине всего списка Комбо. Можно ли сделать так, что бы первая удовлетворяющая условию позиция была первой на экране в списке (как бы все до нее, не удовлетворяющие запросу не были видны)?.
...
Рейтинг: 0 / 0
08.12.2005, 13:34:32
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ComboBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=33424123&tid=1592837]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 186ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 188ms
total:  429ms
созд. / загр.: 429ms
x
x
Закрыть


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