powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема с ComboBox
7 сообщений из 7, страница 1 из 1
Проблема с ComboBox
    #36116113
dima-k5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет !
подскажите что можно сделать.
Проблема : для автоматического распахивания ComboBox использовал такое:

KEYBOARD '{ALT+DNARROW}' PLAIN CLEAR
MOUSE CLICK AT OBJTOCLIENT(this,1), OBJTOCLIENT(this,2) WINDOW (ThisForm.Name) PIXELS
MOUSE CLICK AT OBJTOCLIENT(This,1)+SYSMETRIC(6),OBJTOCLIENT(This,2)+This.Width-SYSMETRIC(5) WINDOW (ThisForm.Name) PIXELS
(взял это решение из форума). В конструкторе все работает прекрасно
Но после компиляции программы в EXEшник не работает.
...
Рейтинг: 0 / 0
Проблема с ComboBox
    #36116151
George1974
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Попробуй использовать
KeyBoard "{x41A0}"
...
Рейтинг: 0 / 0
Проблема с ComboBox
    #36116184
dima-k5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2George1974, попробовал - не катит - тоже самое
...
Рейтинг: 0 / 0
Проблема с ComboBox
    #36117001
George1974
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В событии KeyPress у меня стоит вот такой код
LPARAMETERS nKeyCode, nShiftAltCtrl
Do Case
Case nKeyCode = 147 And nShiftAltCtrl = 2
This.Erase
Case nKeyCode = -1 And nShiftAltCtrl = 0
KeyBoard "{x41A0}"
NoDefault
EndCase

Все прекрасно работает по клавише F2
...
Рейтинг: 0 / 0
Проблема с ComboBox
    #36117155
dima-k5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2George1974, В KeyPress какого объекта ?
задача в чем : в TetxBox вводится какое-то значение. По chr(13) осуществляется поиск данных и результат - в курсор (значений может быть несколько). Данные курсора и должны отобразиться в
ComboBox (причем он должен раскрыться сам).
...
Рейтинг: 0 / 0
Проблема с ComboBox
    #36117246
Kruchinin Pahan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
dima-k52George1974, В KeyPress какого объекта ?
задача в чем : в TetxBox вводится какое-то значение. По chr(13) осуществляется поиск данных и результат - в курсор (значений может быть несколько). Данные курсора и должны отобразиться в
ComboBox (причем он должен раскрыться сам).
Вот и надо было начинать с задачи, а не со способа ее решения.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
loForm = NEWOBJECT("tForm")
loForm.Show( 1 )

DEFINE CLASS tForm AS Form
ADD OBJECT txt AS TextBox
ADD OBJECT cbo AS ComboBox WITH ;
	Left =  100 , ;
	RowSourceType =  1 , ;
	RowSource = "Один, Два, Три"
PROCEDURE Txt.KeyPress
	LPARAMETERS nKeyCode, nShiftAltCtrl
	DO CASE
		CASE nKeyCode ==  13  AND nShiftAltCtrl ==  0 
			NODEFAULT
			ThisForm.Cbo.SetFocus()
			KEYBOARD "{x41A0}"
	ENDCASE
ENDPROC
ENDDEFINE

...
Рейтинг: 0 / 0
Проблема с ComboBox
    #36117336
dima-k5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Kruchinin Pahan, Урааааааа заработало ! Большущее СПАСИБО!
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема с ComboBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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