TDBLookupComboBox и TDBLookupListBox

[alexs]

VAshot
всё правильно - после выбора справочник востанавливается а место
в принципе если народ попросит - можно голочку ввести на отключение этого дела

[alexs]

кстати - стрые версия и я сохраняю на сайте - просто на них линк не делаю
если интересно то
http://alexs75.narod.ru/fpc/rxfpc/RxFPC_12.rar
.....
http://alexs75.narod.ru/fpc/rxfpc/RxFPC_19.rar
качай любую

[Ivanov]

могу ли сделать с помощью этих компонентов следующее:

список заполняется данными из запроса SQL, при выборе компонента в ItemIndex передается id записи из БД

пробывал с компонентами RxLIB, не смог добиться нужного результата, подскажите начинающему

[alexs]

список заполняется данными из запроса SQL, при выборе компонента в ItemIndex передается id записи из БД

какими компонентами пользуешся конкретно?
как я понял тебе нужен
либо
TRxDBLookupCombo
или
TRxLookupEdit

[Ivanov]

пробывал с TRxDBLookupCombo

[alexs]

дык там ItemIndex вобще нет
ты будеш редактировать другой набор данных через справочник или тебе просто надо выбрать значение?

[Ivanov]

мне нужно, чтобы из БД заполнился список типа ComboBox и при выборе компонента получить ID записи, которая была выбрана

[alexs]

В таком случае я делаю так:
Беру RxMemTable, создаю в нём поле - оно будет служить для хранения переменной
На него вешаю TRxDBLookupCombo
а в качестве лукапа на TRxDBLookupCombo уже вешаю справочник

[Brainenjii]

Я вот так делаю:

Код: Выделить всё

...
Type

  { BItemID }

  BItemID = class
    Private
      BValue: Integer;
    Public
      Property Value: Integer Read BValue;
      Constructor Build(C_Value: Integer);
    End;

...

Procedure TForm1.Button1Click (Sender: TObject );
Begin
  ComboBox1.AddItem('1', BItemID.Build(100));
  ComboBox1.AddItem('2', BItemID.Build(200));
  ComboBox1.AddItem('3', BItemID.Build(300));
  ComboBox1.AddItem('4', BItemID.Build(400));
end;

...

Procedure TForm1.ComboBox1Change (Sender: TObject );
Begin
  ShowMessage(IntToStr(BItemID(ComboBox1.Items.Objects[ComboBox1.ItemIndex]).Value));
end;                       

...

{ BItemID }

Constructor BItemID.Build (C_Value: Integer );
Begin
  BValue := C_Value;
End;     

...

[vital]

m_guest
alexs
Спасибо за ссылки на старые версии.

[debi12345]

В таком случае я делаю так:
Беру RxMemTable, создаю в нём поле - оно будет служить для хранения переменной
На него вешаю TRxDBLookupCombo
а в качестве лукапа на TRxDBLookupCombo уже вешаю справочник

Обожаю это способ
А на событие изменения этого поля memtable (в MSEgui = датасет в локальном режиме ) - обработчик вешается. Это позволяет не ломать событийно-ориентированный принцип построения программ.

[VAshot]

Вот такой вопрос:
Как присвоить полю значение Null при помощи TDBLookupCombo?
Если задача аналогична этой:

В таком случае я делаю так:
Беру RxMemTable, создаю в нём поле - оно будет служить для хранения переменной
На него вешаю TRxDBLookupCombo
а в качестве лукапа на TRxDBLookupCombo уже вешаю справочник

На данный момент реализовал через прямое заNullуние поля в RxMemory отдельной кнопкой.
Есть ли более грамотное решение?

[alexs]

Нажать ESC

[VAshot]

Если у форму стоит свойство fsStayOnTop, то выпадающий список TRxDBLookupCombo отображается за формой (где-то было про подобное с календарем). Это Лазарус виноват?

0.9.25 (6.12.07)
Rx 1.1.5.98

[alexs]

LCL так себя ведёт
просто я делал для винды отображение окна списка не модальным
в принципе в исходниках можно раскоментировать линуксовую ветку - там отображение модальное, и этот эффект уйдёт

А так бог его знает - может ввести проверку на то, что форма fsStayOnTop, и в этом случае отбражать окно модальным?

у кого какие предложения?