Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / знатокам EhLib / 9 сообщений из 9, страница 1 из 1
17.07.2003, 12:21
    #32210745
неважно кто
неважно кто
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
знатокам EhLib
Как в DBLookupComboBoxEx сделать возможным только выбор из имеющегося списка? Что-нибудь типа TComboBox.Style := csDropDownList.

В связке DBGrid + DBLookupComboBox делал TColumn.ReadOnly := true и все работало. Здесь же он не дает менять значения вообще.

При нажатии Del в поле он по своему грязно ругается на Unknown Error и норовит вставить NULL в базу.

Пляски с бубном вокруг DropDownSpecRow и OnNotInList увы ни к чему не привели.

Delphi 5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.07.2003, 12:49
    #32210789
pkarklin
pkarklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
знатокам EhLib
Ну так при свойстве Style = csDropDownListEh контрол тока из списка выбирает. А если ты Del нажал, то он NULL прописывает. Работает ксати логичнее, чем дельфофый родной компонент. А вот если у тебя поле не должно допускать ввода NULL, вот это проверяй на BeforePost.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.07.2003, 13:02
    #32210807
неважно кто
неважно кто
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
знатокам EhLib
pkarkling, прости, запутал сам себя.

LookupComboBox-ом тут и не пахнет. Везде вместо LookupComboBox следует читать LookupField.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.07.2003, 13:28
    #32210860
pkarklin
pkarklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
знатокам EhLib
Действительно, лезет EOLEException. Ой здается мне, что это что-то при взаимодействии с ADO подглючивает. OLE окромя ADO больше нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.07.2003, 13:35
    #32210872
JibSkeart
JibSkeart
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
знатокам EhLib
да есть такое тоже сталкивался ,
правда помойму оно у меня только в IDE
вылезало ....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.07.2003, 13:39
    #32210876
pkarklin
pkarklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
знатокам EhLib
правда помойму оно у меня только в IDE
вылезало ....

В рантайм действительно не вылазит. А обработчик BeforePost с проверкой на NULL срабатывает как положено. 2 неважно кто, может и тьфу на EOLEException, раз оно не мешает?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.07.2003, 13:44
    #32210892
неважно кто
неважно кто
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
знатокам EhLib
Хе, действительно только в IDE. Можно и тьфу, хотя нехорошо это.

P.S. Я одного кадра видел который в код зашивал скрипты с create procedure в try-блоке. Печальное зрелище.

P.P.S. Спасибо. :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.07.2003, 13:59
    #32210916
pkarklin
pkarklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
знатокам EhLib
2 неважно кто

Кстати при работе с ADO был ряд моментов, когда из под IDE лезли Exceptionы, а в рантайм нет. Счас уже не помню в какой момент точно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2003, 14:20
    #32212125
неважно кто
неважно кто
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
знатокам EhLib
Если кому интересно - решилось так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
procedure TForm1.DBGridEh1Columns4UpdateData(Sender: TObject;
  var Text: String; var Value: Variant; var UseText, Handled: Boolean);
begin
  if Value = null then begin
    Value := TDBGridColumnEh(Sender).DropDownSpecRow.Value;
    Text := TDBGridColumnEh(Sender).DropDownSpecRow.CellsText;
  end;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / знатокам EhLib / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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